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Introduction 


This book contains 13 graphic games, all of which are different. 
They include arcade games, games of strategy and games of skill. 

Various techniques, including useful machine code routines, 
new character sets and methods of programming which will save 
both time and memory, are employed in the programs; wherever 
possible these methods are explained in a clear and concise 
manner. Consequently, this book provides instruction in the art 
of games writing, as well as endless hours of entertainment. 

Each of the 13 games is divided into a number of sections as 
described below. 


Description 


A brief description of the game is given. The object of the game is 
outlined and the tasks that the player will be presented with are 
indicated. 


Hints on Entry 


As some of the programs are quite long and complex, it is highly 
likely that errors will be made during the typing stage. This 
section is intended to assist the user by pointing out the complex 
lines where errors are most likely to occur. It is therefore most 
important that constant reference is made to this section during 
the typing stage. 


Techniques 


Each program will be accompanied by a short section instructing 
the user about one of the more complex techniques employed in 
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the program. It is hoped that by reading these notes and referring 
to the listings valuable information about the methods employed 
will be gained. This knowledge could then be put to use in the 
design of more complex games. 


Instructions 
All the games in this book are designed to be playable without 
any written instructions. This section is included, however, and 


contains details about loading the games as well as a few outline 
instructions. 


Listing 


The last section of each chapter will contain the listing together 
with a notice similar to that shown below. 


IMPORTANT 
1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE REPRESENTED BY LOWER CASE LETTERS. 


As can be seen from the notice, all games are written in the 
CAPS LOCK mode, so that the graphics characters represented 
by lower case letters are easily recognisable. These graphics 
characters must be entered by using the graphics mode (see 
Spectrum manual). 


Chapter 1 


Fantastic Journey 


Description 


News has reached you that Dr Hans Zarkov, founder of the World 
Peace Organisation, has been rushed to hospital with a suspected 
brain tumour. A few hours later, this diagnosis is confirmed, and 
the doctor in charge of the case announces that, due to the 
position of the growth and the condition of the patient, major 
surgery is impossible. The only chance of survival for Dr Zarkov 
rests in the hands of the Ultra Subminiature Research Team. 

As the captain of the vessel SS Nautilus, itis your responsibility 
to pilot your craft, from the patient’s leg through his bloodstream 
to the brain so that your first officer can use the onboard laser to 
dissipate the cancerous growth. 

At first, the job seems perfectly routine, the reducing process 
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wes well. and you are injected into the leg without any 
ope >lems. However, only minutes after your journey commences 
= Tea.ise that you are going to have oxygen and fuel problems, 

amc that vour only hope of survival and a successful mission is to 


» Sect supplies from the various vital organs encountered during 
> fantastic journey through the human body. 


Hints on Entry 


The first thing to note is that the program contains a large amount 
>¢ data, which is required for the alternative character set used 
‘hroughout the game. This data should be entered with great care 
aS 2 missing or incorrect value is likely to result in garbage being 
printed on the screen. 

As the program uses high-resolution perspective graphics, 
very little use is made of the user-defined graphics. Those that are 
used are located in line 1030 and are represented by small 
characters. 

The other area where care is necessary is in the entering of the 
section relating to the map (lines 298-360). All of these lines 
should consist of 26 characters; the number of spaces should be 
carefully checked by comparison with the previous line. 


Techniques 


When playing Fantastic Journey you will see that it is possible to 
create a special character set to be used to enhance the overall 
appearance of a game of this type. 

If you are familiar with creating user-defined graphics then 
creating your own character set will not pose any problems. A 
character is constructed on an 8 x 8 grid (see Fig. 1) with each row 
being converted into binary and then into a decimal. The 
numbers contained in the right-hand column are then poked into 
consecutive memory locations where the character set is to be 
stored. 

The original set used by the Spectrum is stored in ROM from 
location 15360 to location 16128, and because of the structure of 
ROM these values cannot be altered. The first step, therefore, in 
defining a new character set is to transfer the original from ROM 


t 


— ee ia 
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Letter A 


01111100 124 
01000100 68 
01000100 68 
11001100 204 
10001000 136 
11111100 252 
10001000 136 
10001000 136 


Fig. 1 


to some suitable location in RAM where it can be changed. (The 
top of memory from 63000 onwards is generally the best place.) 
The following program can be used to perform this transfer: 


10 LET ST = 63000 

20 FORI = 0 TO 2040 

30 POKE ST+I,PEEK(15360+1) 
40 NEXTI 

50 POKE 23606,24 

60 POKE 23607 ,246 


The last two lines are extremely important as they change the 
system variable CHARS, indicating to the computer the position 
of the new character set. 

The character set has now been transferred from ROM into 
RAM, and we are now ready to start changing the characters by 
poking new values into the appropriate locations. 


Example 


Consider the problem of redefining the letter A to the design 
shown in Fig. 1. We must first decide where the representation of 
A starts within memory. This can be found using: 


LET ST = (CODE(A) *8) + 63000 
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The new character can now be entered into memory by using the 
following short program: 


70 LET ST=(CODE(A)*8)+63000 
80 FORI=0TO7 

90 READN 

100 POKEST+IN 

110 NEXTI 

120 STOP 

130 DATA 124, 68, 68, 204, 136, 252, 136, 136 


The letter A has now been redefined and will appear as such in 
all listings and printings. If it is required to define other letters (B, 
C, D, etc.), then we need only change the second value in the FOR 
loop and increase the amount of data accordingly. 


Instructions 


Load the game from tape to microdrive by typing: 

LOAD“”” 
or 

LOAD #”M”;1;“FANTASTIC” 
When loaded the game will run automatically, although there will 
be a short delay while the new character set is defined. The game 
will then commence with your craft being injected into the 
patient’s body. As the craft is computer controlled, most of the 
appropriate actions will be taken automatically, and it is your 


task to control the craft by using the cursor keys until your 
mission is successfully completed. Good luck and bon voyage. 


Listing 


IMPORTANT 
1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED IN LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


Fantastic Journey 7 


1 BORDER @: PAPER @: INK 7: BRIGHT 1: 
CLS 3} PRINT AT 180,.4;"SEITING UF ~ PLEAS 
E WAIT" 
2 PRINT AT 3;73;"FANTASTIC JOURNEY" 
3 POKE 23658,8 
1@ FOR B=] TO 1S 
2@ READ AS: FOR J=@ TO 7: READ A: POKE 
USR ASt1,A? NEAT I] 
38 NEXT B 
168 DATA "A",3;12;49; 66; 144, 168, 146; 137 
»"B",223,56,128,0,48;35,7,7 
191 BATA “€";@5 192, 325563 43 19535 1935 194; 
"D",65;48,8,14,1,8;,;9,0 
162 DATA "E",135;,19;56;,197,;6,0,0,0,"F",; 
134; 4; 24,224,8,0,0,8 
1@3 DATA "G",18,5@,249,1,193,128,24,5," 
H", 38,36; 193; 242, 246, 228, 248, 242 
144 DATA °1",@3 127; 23555 27531533054; "J" 
38,252, 254, 254, 254, 254, 62,12 
185 DATA "K",56,68, 162,178, 138,146; 132; 
132, "L"54, 26,18, 43,494; 16,175 1945 "MN", 148; 1 
68,144;16;,32,64,128,@8 
11@ FOR ]=@ TO 768: POKE 64256+I,PEEK C 
15616+I}J: NEXT J] 
115 POKE 23607, 258 
126 FOR I=@ TO 4: READ A: FOR C=@ TO ?: 
READ B: POKE AtC,B: NEXT C:> NEXT J 
138 DATA 64584, 126,70,6, 34, 24,80,24,8,64 
736,64, 96,48, 24,12,6,2,0,64264, 24; 24, 24; 
243;24;0;,24,0,64964; 4,24; 294;0;,80,24,24,0,6 
4$488,6,62,62,4,62,62,0,0 
14@ FOR [=6432@ TO 64336: READ A: POKE 
1,A? NEAT I] 
15@ DATA @,12, 24,24; 24,24, 12,0;,8, 48; 24, 
24324324348; 8 
166 FOR 1=64352 TO 64374: READ A: POKE 
1,A: NEXT I 
165 DATA @,4,0,4,0,24,24,48,0,0,8,126,1 
26,0,40,0,80,0,0,0,0,;24,24,¢ 
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17@ FOR 1=6452] TO 647293: READ A: POKE 
I,A? NEAT I] 

188 DATA 64, 36,36, 126,98, 98, 98,4; 124,68 
:68, 126,98, 98, 126,08, 126,66,66; 96; 96; 98; 1 
26,6, 126,66, 66, 98,98,98, 126,04; 126; 64; 64, 
126, 96,96, 126,@,126,64,64, 126,96, 396; 96,0 
:126,66,64, 102, 98,98,126,0,66,66,66; 126; 
38, 98,98,6,16,16,16; 24,24; 24, 24:3 

184 DATA 4,4;,4;6;70,7@6, 126,0@,68,68,68, ] 
26, 98,98,98,0,64, 64,64, 96, 96, 96, 126,6,12 
6; 74,74, 186, 166, 186, 196,86, 126,66,66,98,9 
8,98,98,0, 126,66,66,98,98,98, 126,4,126,6 
6,126, 96, 96, 96, 96,6, 126,66,66,98,98,114; 
126,0,124,68,68, 126, 98,98,98,8, 126,64, 64 
»126,6,6,126,8 

188 DATA 126,16, 16; 24,24, 24, 24,0, 66; 66; 
66; 98,98, 98, 126, 4, 98,98, 98, 98, 36, 36,608,0 
374; 74;74, 146, 106, 106, 126,0,66,66, 66, 60, 
38, 98,98,8,66,66,66, 126, 24, 24, 24;,0,126,2 
>2,126,96,96,126;,@ 

13@ FOR 1=64384 TO 64463: READ A: POKE 
I;A? NEXT I 

206 DATA @,126,;, 66,66; 70, 78,70,126,8,8,8 
78924; 24; 24; 24; 4, 126,66; 2, 126,96; 96; 126, 
9,124,68,4,30,6,7@,126,0,12@,72,72,72,12 
6; 24; 24,4, 126, 64,64, 126;,6,;,78,126,8,126,6 
4,64,126,98,98,126,8,126,2,2,6,6,6,6,0,6 
8, 36,36,126, 78, 7@,126,@, 126,66,66, 126,6, 
6,6;,@ 


2396: Ley MNs=" 

306 LET M$=M$+" J.J BEE 

aug LET M$=N$t" J & & 

384 LET M$=N$+" J B €EL 

_ LET M$=N$+" 1 BBB E CA K K 


308 LET M$=MN$t+"SSSSSIJJJ B CCCAAA RR 
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316 LET M$=M¢Et"sS S R B A RR 
‘2 LET M$=MN$+"S iS B BA RR 
314 LET M$=M$t"S S RBB BBBB A HHH 
316 LET M$=N$t+"S S B B A AL 


318 LET M$=M¢t"S S BB AHHHHH 'H 


326 LET M$=M¢$+"SSSSSSR BB A H 
322 LET M$=MN$+" SS B B A H 
324 LET M$=MN$+"B B B B AAAA H 
326 LET N$=M$+"BBBBBBBBBBBBBBBBA H 
328 LET MN$=MN¢+"'B A SH 
BE 

338 LET N$=MN$+"B A M 
332 LET N$=MN¢$+"B C UUUU A mM 


334 LET MN¢=N$t"'B L Woo F M 


336 LET M$=M$+"B C CCCUUUU VU FANNMNMM 


338 LET M$=M$+"B C C U UF 

34@ LET M$=M$+"B C CU UUFFFFFF 
342 LET M$=M$+"B CCCC U FF 
344 LET M$=M$+"B CU F 
346 LET M$=M$+"B CU F 


348 LET M#=N¢$+"B iS U I F 
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358 LET M$=Ms+"B CU ;° = 
— LET M¢="s+"B oC URI I F 
354 LET M$=M$+"B OC III] LIFFFF 
356 LET M¢=M$t+"B OC I I F 
-_ LET M$=M$+"BCCCC Iliti 


368 LET M$=MN$t" 


860 FOR I=@ TO 72: READ A: POKE USR "Q"+ 
IT;,A? NEXT I: DATA @,6,48,88, 228,255,255, 
255 

388 PRINT AT 16,43" FINISHED - HIT A KE 
+ r 

361 PRINT AT 35;73"FANTASTIC JOURNEY" 


383 IF INKEY$="" THEN GO. TO 983 

31@ PRINT AT 18,83" HIT ~I~ FOR INSTR 
UCT IONS" 

S311 FOR I=] TO 16: NEXT I 

312 LET S#$=INKEY$: IF S$="" THEN GO TO 


311 

328 IF S¢="I" THEN GO SUB 3980 

1086 PAPER S: INK @: BORDER 1: CLS : LET 
De="W": LET FL=1@@: LET R=5@5: LET AL=] 
@@: LET TL=5@@: LET NL=1@@: LET SC=1@@: 
PRINT AT 21,@;" LEFT FEMORAL VEIN. " 
181@ PRINT AT 1,1@;"FANTASTIC JOURNEY" 3A 


T B.2Li"’TIMNE LBET i= 588" ;AT 4,113"N 
EURONE LASER :- 1@@z%"3AT 5,113;"SUB CONDI 
TION?:- 1602" 3AT 6,113° OXYGEN LEFT :- 
1@6"3AT 7,113"FOOD LEFT :- 186" 


1@2@ PRINT AT 193,123;"LOCATION" 

143@ INK 3: PRINT AT 1,33"abe"3AT 2,33"d 
ef"3AT 5,33 INK 23"9h"GAT 8,33"ii"5AT 18 
243 INK 33°k" SAT 11,33 "lm" 

1@4@ INK @: PLOT 8,166: DRAW @,-3@: DRAW 


ry re 2S «we 


= 
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58,@: PLOT 66,164: DRAW @,-30 
1@5@ PLOT 8,168: DRAW 15,6: PLOT 66,164: 
DRAW -18,0 
1@6@ PLOT 8,132: DRAW 15,6: PLOT 66,132: 
DRAW -26,B 
1@7@ PLOT 8,109: DRAW 15,4: PLOT 66,107: 
DRAW ~—26,9 
1888 PLOT 66,98: DRAW -26,@ 
1@9@ PLOT 35,96: DRAW @,7 
1166 PLOT 935,184: DRAW 121,@0: DRAW @,;-4]1 
DRAW -121,@: DRAW 6,41 
1118 GO SUB 68a 
112@ GO TO 72e8e 
3808 CLS : PRINT AT 1,03" FANTASTI 
C JOURNEY" 
3882 PRINT AT 4,43" THE FAMOUS DR HANS 
ZARKOU HAS CONTRACTED A BRAIN TUMOUR 
YOUR MISSION IS TO SEEK OUT TAs 
TUMOUR AND DESTROY IT: YOU WILL BE 
SHRUNK DOWN IN SI2E AND INJECTED INT 
90 THE DOCTOR’S BODY, YOUR SUBMARINE 
IS EQUIPPED WITH A NEURONE LASER 
> CAPABLE OF DESTROYING THE TUMOUR, I 
T WILL ONLY WORK WHEN OVER 3@% EFFICIE 
NT. YOu WILL ALSO HAVE TO WORK TO A 
TIME LIMIT AFTER WHICH YOU WILL BE EX 
CRETED FROM THE BODY, 
GOOD LUCK?’ 
3818 PRINT AT 21,43" HIT ANY KEY TO CO 
NTINUE " 
3611 IF INKEY$="" THEN GO TO 3411 
3828 CLS PRINT AT 1,83" FANTAST I 
C JOURNEY" 
3221 PRINT AT 4,43" you WILL ENCOUNTER 
MANY DANGERS. TO CONTROL YOUR CRAF 
a- ROTATE LEFT 
8- ROTATE RIGHT 6- ROTAT 
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E 18a? 7- MOVE FORWARD 
TO 
THE LEFT OF THE SCREEN IS A BASIC Mar O 
F THE BODY, BUT IT IS MORE COMPLICATED T 
HAN THIS. OXYGEN HAS TO BE USED IN VEIN 
S AS THERE IS A LACK OF IT IN THE VEINS 


FOOD STORES MAY BE REPLENISHED W 
HERE APPROPRIATE. " 
3838 PRINT AT 21,83" HIT ANY KEY TO PL 
Avr GAME” 


3846 IF INKET$<0>"" THEN RETURN 
3856 GO TO 3640 
6866 FOR I=3 TO 13: PRINT AT 1,123" 


"2 NEXT I 
6601 IF D$<>"N" THEN GO TO 61668 
6062 IF M$€CR-1)<>" " THEN INK @: PLOT 93 
5;36: DRAW 24,@: DRAW @,-25: DRAW -24,@ 
6684 IF M¢CRt1)<>" " THEN INK @: PLOT 2 
16,96: DRAW -24,@: DRAW @,-25: DRAW 24,8 
6616 IF M$CR-1)=" " THEN INK @: PLOT 935 


> 184: DRAW 24,-8: DRAW @,-24: DRAW -24,- 
8 

6426 IF M$CRt1)=" " THEN INK @: PLOT 2] 
6,104: DRAW -24,-8: DRAW @,-24: DRAW 24, 
=i 

6636 IF M$CR-26)=" " THEN INK @: PLOT ] 
19,96: DRAW 72,@: PLOT 119;71: DRAW 72,4 
64448 RETURN 

6166 IF D€<>"S" THEN GO TO 62842 


6102 IF N@CRtli<>" “ THEN INK G&? PLOT 8 
5,96: DRAW 24,@: DRAW @,-25: DRAW -24,@4 
6164 IF M$CR-1)<>" " THEN INK @: PLOT 2 
16,936: DRAW -24,0: DRAW @,-25: DRAW 24,4 
611@ IF MS$CRtl1J=" " THEN INK @: PLOT 935 


> 184: DRAW 24,-8: DRAW @,-24: DRAW -24,- 
B 


6126 IF M#$CR-1)=" " THEN INK @: PLOT 2] 
6,164: DRAW -24,-8: DRAW @,-24: DRAW 24, 
-8 
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6138 IF M$CRtZ26)=" " THEN INK @: PLOT 1] 
19,96: DRAW 72,@: PLOT 119,71: DRAW 72,24 
6148 RETURN 

6206 IF D$¢<Q"W" THEN GO TO 6386 


6262 IF M$CRtZ26)<>" “ THEN INK @: PLOT 
35,36: DRAW 24,4: DRAW @,-25: DRAW -24,@ 
6284 IF M$CR-26)<>" " THEN INK @: PLOT 


216,96: DRAW -24,@: DRAW @,-25: DRAW 24, 
6216 IF M$C(Rt+Z26)=" " THEN INK @: PLOT 3 
5,164: DRAW 24,-8: DRAW @,-24¢: DRAW -24, 
ee 

6226 IF M$C(R-26)=" " THEN INK @: PLOT 2 
16,1804: DRAW -24¢,-8: DRAW @,-24: DRAW 24 
:78 

6236 IF M€CR-13=" " THEN INK @: PLOT 11 
3,36: DRAW 72,@: PLOT 119;71: DRAW 72,04 
624@ RETURN 

636@ IF M$C(R-26)=" " THEN INK @: PLOT 93 
5,144: DRAW 24,-8: DRAW @,-24¢: DRAW -24, 
-8 


6382 1F M$CR-26)<>" “ THEN INK @: PLOT 
95,936: DRAW 24,@: DRAW @,-25: DRAW -24,0 
6384 IF M$€CRt+26)<>" " THEN INK @: PLOT 


216,96: DRAW -24,8: DRAW @,-25: DRAW 24, 
i) 
6318 IF M$C(Rt+Z26)=" “ THEN INK @: PLOT 2 
16,184: DRAW -24,-8: DRAW @,-24: DRAW 24 
eat =) 
63208 IF M$CRt+13=" “ THEN INK @: PLOT 11 
3,96: DRAW 72,@: PLOT 119,71: DRAW 72,@ 
63328 RETURN 
7220 IF M$CRI<>"A" THEN GO TO 7618 
7864 PRINT AT 21,0;" AORTA 

"® LET TL=TlL-1l2 LE] FRePL=2? & 
5 SUB 3688 
7266 GO SUB 68@@: PRINT AT 16,@;"OxYGEN 
LEVEL HIGH-PRESSURE HIGH": 
mag? LET TL=TeL~1. 
7288 GO TO 9588 
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7818 IF M$(RI<>"K" THEN GO TO 7920 

7811 PRINT AT 21,03" KIDNEY 
PRINT AT 16,@;"KIDNEYS ENTE 

RED-YOU HAVE BEEN EXCRETED FROM THE BO 

DY. GAME OUER-SCORE “3TL+NL+SC+F 

Li" "2 PAU 


SE 266: GO TO 3988 
7828 IF MECRI<>"R" THEN GO TO 7638 
7421 PRINT AT 16,43" 
“2 PRINT AT 21,83" 
RENAL ARTERY”: tel Tl=TL=-1* LET FPLerl}=1- 
GO SUB 3666: GO TO 354¢ 


7036 IF M$CRIC"N" THEN GO TO 7846 
7031 PRINT AT 16,03" 


“2 PRINT AT 21,03" ES 
ENTERIC ARTERY *F LET TLaeTLel® LE 
T FL=FL-1: GO SUB 93686: GO TO 3588 
7646 IF M#€CRIQ>"H" THEN GO TO 75a 


7641 PRINT AT 21,063" HEPATIC PORTAL 
VEIN "2 PRINT AT 16;@3;"SUGAR LEVE 
L HIGH-TAKE ON STORES?" 

7842 LET S$=INKEY$: IF S$="" THEN GO TO 
7842 


7043 IF S¢$="Y" THEN LET FeHl@e@: LEY [L= 
Thess 
7/644 LET TL=TL=1? LET AL=sAL=-Z2: GO SUB 32 
@B: GO TO 9566 
7056 IF MECRI<O"H" THEN GO TO 7866 

7@51 PRINT AT 16,083" 

"FAT 21583" HEPATIC A 

RTERY “S LET TlLeTL=12 LET @LSeeL 
-l: GO SUB 93882 
/7@32 [JF RND>.S THEN LET TL=TL=4* LET AL 
=AI-INT CS*XRNDJ:? LET FL=FL-INT (€1@XRND): 
PRINT AT 16,@3;"ATTACKED BY LEUCOCYTES-D 
AMAGED ": LET SC=SC-INT C15*RNDJ: LET N 
L=NL-1: GO SUB 3aa@a 
7853 GO TO 9584 


7866 IF M$CRI<>"C" THEN GO TO 7878 
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7861 PRINT AT 21,83" CAROTIO ART 
ERY “: PRINT AT 16,43" 
": LET TL=TL-1: LE 
T FL=FL-1: GO SUB 3000 
7862 GO TO 358@a 
7078 IF N€¢CR)<>"J" THEN GO TO 7a88 
7871 PRINT AT 16,03" 
ear By Os" JUGULAR 
UEIN ": LET AL=AL-2: LET FL=FL 
-1: LET TL=TL-1: GO SUB 39@@: GO TO 35828 
7a8@ IF M$(RI<>"I" THEN GO TO 7a39¢8 
Jag2 PRINT AT 16,83" 
“aT 21,83" LEFT LE 
G VEIN “s; LET TL=TL-1: LET FL=FL 
-1: LET AL=AL-1: GO SUB 99@@: IF RND>,? 
THEN LET TL=TL-1: LET FL=FL-1: LET SC=S 
C-INT €2@XRND): PRINT AT 16,8;"ATTACKED 
BY LEUCOCYTES-DAMAGED ": GO SUB 9@a@: G 
9 TO 93580 
7884 GO TO 35a2a 
7@98 IF M¢€CR)<>"F" THEN GO TO 2@35 
7832 PRINT AT 16,03" 
“SAT 21,8;" LEFT FEMORAL 
ARTERY *“: LET TL=TL-1: LET FL=FL 
-1: GO SUB 39@@: GO TO 35aa 
7@33 GO TO 350¢a 
7@95 IF M$€C(R)<>"C" THEN GO TO 8aaa 
2@37 PRINT AT 16,03" 
“ehT 21,83" RIGHT FEMOR 
AL VEIN *: BET TL@fL=14 LET FLePL. 
-1: LET AL=AL-2: GO SUB 3aaa 
7@98 IF RND>.8 THEN (LET FL=Fi-2: LET AL 
=AL-1: LET NL=NL-1: LET SC=SC-INT (€1@XRN 
D): GO SUB 99@@: PRINT AT 16,@;"ATTACKED 
BY LEUCOCYTES-DAMAGED": GO TO 35ae 
7233 GO TO 3522 
8200 IF M$(R)<>"U" THEN GO TO 8aa5 
8222>PRINT AT 16,83" 
“sA) 24.0;™ RIGHT FEMORAL 
ARTERY “sLET TL=TL-1:LET FL=FL-1 
2>G0 SUB 998@:I1F RND>.8THEN PRINT AT 16,8 
>"ATTACKED BY LEUCOCYTES-DAMAGED ":LET 
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TL=7TL-S:LET SC=SC-INT (C2@XRND) 
B264 GO TO 3588 
8085 IF M$CRI<"B" THEN GO TO 8818 
8886 PRINT AT 16,83" 

“GAT Zls@3” INFERIOR YU 
ENA CAVA "S$ LET Th=TLe]? LED AL=AL 
-l1: LET FL=FL=1: GO SUB 39886: IF RND>.39 
THEN PRINT AT 16,;03;"CRUSHED BY A VALUE 
GAME OVER a SCORE “3TL+SC+FL+NL? PA 
USE 2@@: GO TO 93988 
8408 GO TO 9588 
8818 IF M$CRI<>"S" THEN GO TO 8828 
8812 PRINT AT 16,83" 

“SAT 21,035" SUPERIOR VY 
ENA CAVA Ve LET Thetiels LE] ALSAL 
-l1: LET FL=FL=1: GO SUB 9080: IF RND>.3S 
THEN PRINT AT 16,@3"CRUSHED BY A VALUE 
- GAME OVER SCORE “STLeSEFPLINLs PR 
USE 2@@: GO TO 93988 
8214 GO TO 9358@ 
8826 IF M$¢CRI<>"S" THEN GO TO 8832 
8822 PRINT AT 21,83" STOMACH 


8923 IF SC<4@ THEN PRINT AT 16;@3"SHIEL 


D DISSOLVED BY ACIP --—-- GAME OVER - §S 
CORE "3TL+SC+NL+FL: PAUSE 2@@: GO TO 398 

g 

8224 PRINT AT 16,;83;"SHIELDS HOLDING-—DANMA 

GE TAKEN "2 LET SC=SC-INT C€1@*RND) 


S825 LET TL=TL-1]? LET FL=FL-]: LET AL=AL 
i: GO SUB 3888: GO TO 95a 

5230 IF M$(RJ<>"L" THEN GO TO 8840 

@32 LET TL=TL-1: LET AL=AL-1: LET FL=FL 


OD 


-l= PRINT AT 21,83" LIVER 
"SAT 16;0;"SUGAR LEVEL HIGH-T 
AKE ON STORES?” 
S233 LET S$=INKEY$: IF S¢$=""" THEN GO TO 
8433 


S634 IF S$=""" THEN LET TL=Tb=-s: LET PL 
=1@@: GO SUB 9606: PRINT AT 16,83" 
GO TO 3588 
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8935 PRINT AT 16,43" 
> GO SUB 9886: GO TO 93588 
8448 IF M$CRI<>"R" THEN GO TO 8@5@ 
8842 PRINT AT 21,03" HEART 
“3AT 16,;@;"PASSING THORUGH R 
IGHT ATRIUM “: IF RND>.6 THEN PAUSE 
204: PRINT AT 16,;@3"CRUSHED BY TRICUSPID 
UALUE GAME OVER - SCORE “;SC+NL+FlL 
+TL:? PAUSE 286: GO TO 9398@ 
8843 PRINT AT 16;80;"PASSING THROUGH RIGH 
T YENTRICLE “>: PAUSE 2@@-> IF RND?.6 THEN 
PRINT AT 16,@3;"CRUSHED BY CARDIAC MUSC 
Le GAME OVER = SCORE *$TL+SCTANL+PL 
* PAUSE 28@: GO TO 93986 
8844 PRINT AT 16,;@3;"PASSING DOWN PULMONA 
RY ARTERY AND INTO LUNG ==--- 
“2 PAUSE 2@@: PRINT AT 16,@;"PASSING 
DOWN PULMONARY VEIN AND INTO HEART AT 


Lert AlRIUn "2 TF RND>.6 THEN PAUS 
E 268: PRINT AT 16,@;"CRUSHED BY BICUSPI 
D VALVE GAME OVER - SCORE "“3TLt+FLt 


NL+SC: PAUSE 288: GO TO 3980 

8846 PAUSE 2@@: PRINT AT 16;,;@;"PASSING T 
HROUGH LEFT VENTICLE ": PAUSE 200: IF 
RND>.? THEN PRINT AT 16,;83;"CRUSHED BY C 
ARDIAC MUSCLE GAME OUER — SCORE “3 
FL+SC+NL+TL: PAUSE 280: GO TO 398¢a 
B48 PRINT AT 16,@;"PASSING OUT OF AORTA 
em ": LET. TL=TL+S: LET AL=10@: 
LET FL=FL-3: GO JO 3888 
8643 LET R=485: GO SUB 3888: GO TO 93584 
68056 FOR [=3 TO 13: PRINT AT 1,123" 

“2 NEXT I 

8452 PRINT AT 18,133"abe"3AT 11,133"def" 
8454 FOR I=@ TO 7: READ A: POKE USR "N+ 
I,A: NEXT I 
8255 FOR J=@ TO 7: READ A: POKE USR “O"+ 
I,A? NEXT I 

8056 DATA @; 31,56; 205,50; 315;0,8,0,0,193;, 
Ney 7Sy SB2 193; 1283 132 
8857 PRINT AT 18,233 "no" 
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8958 INK 4: FOR J]=183 TO 128 STEP -1l: BE 

BP ,B@ls@ 

6859 PLOT [,92: NEXT I 

6466 FOR I=@ TO 5S: INK I: PAUSE S: PRINT 
AT 18,133;"abe"3AT 11,133;"deft": NEXT I 
3461 INK 5S: FOR J=128 TO 183: PLOT 1,92: 
NEXT [| 
3462 INK @: PRINT AT 16,@;"TUMOUR DESTRO 


YED - WELL DONE 82898SCORE - '31@@@+NL+SCt 
FLTALtTL: PAUSE 5@@: GO TO 3996 


9080 PRINT AT 3,283TLi" "SAT 4,;283NL5"%" 
MAT Ss Z2B7SC3" 24" 3AT 6; 2B3AL 3" “FAT 2x 2B3F 
3@1@ IF NL<1@@ THEN PRINT AT 45,3135" " 
S015 IF SC<1@6 THEN PRINT AT S3313" " 
3816 IF SC<1@ THEN PRINT AT 5,38;" " 

S 


' SC<@ THEN PRINT AT 5,283'0% © 
9918 IF TL<1@@ THEN PRINT AT 3,283TL3" 


IF TL<1@ THEN PRINT AT 3,283TL3" 
9620 IF AL<1@@ THEN PRINT AT 6,2835AL3" 
IF AL<1@ THEN PRINT AT 6,283AL3" 
3421 IF FL<1@@ THEN PRINT AT 7,283FL3" 

IF FL<1@ THEN PRINT AT 27,285FL3" ‘ 
3622 JF TL<=@ THEN PRINT AT 16,@;"OUT O 
F TIME ~ SCORE ";TL+NL+SC+FL: PAUSE 288: 

GO TO 93996 

3823 IF NL<=89 THEN PRINT AT 16,@03;"NEUR 
ONE LASER INEFFECTIVE GAME OVER —- 
SCORE “3TL+NL+tFL+SC: PAUSE 20@: GO TO 99 


38 
9824 IF TL<=@ OR NL<=839 OR SC<=@ OR AL <= 


@ OR FL<=@ THEN GO TO 39986 
38625 GO SUB 64088 


3630 RETURN 
95@@ LET S$=INKETS: IF S#="" THEN GO TO 


3588 

9518 IF D¢<>"N" THEN GO JO 3528 
9511 IF S$="S" THEN LET D$="W" 
S512 IF S€="8" THEN LET D$="E" 


9513 IF S¢="6" THEN LET D$="S" 
9514 IF S¢="27" AND MN¢CRI="A" THEN PRINT 


> oe 


tay FO “1 WO Ww ae ae 


co 


we) 
LO (9 


; 
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AT 16,63" BLOOD PRESSURE TOO HIGH 
GO TO 78aa 
3515 IF S$="@Q" THEN PRINT AT 15,03"GAME 
OVER - SCORE “3NL+SCt+FL+TL: PAUSE 206: 
GO 70 3966 


9516 IF S$="?" AND M$CR-26) <>" “ THEN L 
ET R=R-26: GO TO 788 


3517 GO TO 7aeea 

3526 IF D#<>"S" THEN GO TO 93536 

sa21 LF St="5" THEN LET O¢="E” 

S52zZ JF S$="36" THEN LET DSe"W" 

9523 IF S$="Q" THEN PRINT AT 16,@3"GAME 


OVER-SCORE "3;NLtSCt+TLtFL: PAUSE 2@@: GO 
TO 3988 


3524 IF S$="6" THEN LET D$="N" 

9525 IF S¢$="7" AND M$CR+26)<>" “ THEN L 
ET R=R+26 

93526 GO TO 78a¢a 

3538 IF D$<>"W" THEN GO TO 93546 


—a2al (Ff S6="S" THEN LET De="s" 
9532 IF S$="8" THEN LET D$="N" 


W533 IF St="6" THEN LET Os="E" 

3534 IF S¢="7" AND M$CR-1)<>" " THEN LE 

T R=R-J 

3535 IF S$="Q" THEN PRINT AT 16;,;@;"GAME 
OUER-SCORE “3;NL+SC+TLtFL: PAUSE 2@@: GO 
TO 9380 

3536 GO TO 7aaa 

93546 REM EAST 

9541 IF S$="5" THEN LET D$="N" 

9542 IF S¢="g" THEN LET D$="S" 

9543 IF S¢$="6" THEN LET D¢="W" 

9544 IF S$="2" AND M$CR+1)<>" “ THEN LE 
T ReRF1 

3545 IF S$="Q" THEN PRINT AT 16,03"GAME 


QOUER-SCORE ";NL+SCt+TL+FL: PAUSE 288: GO 
TO 39988 


3546 GO TO 7882 
3918 FOR [=2@ TO @ STEP -]1 
3326 PRINT AT 15,83"aqqaqaqaqaaqqqqqqqaaqqqq 
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aaqqaaaqqaqaq"; INUERSE 13” 


3324 BEEP 2.05, 1 
3925 INVERSE @ 


3336 NEXT I 
3339@ PAUSE 240: INK @: PAPER S: CLS : PR 
INT AT 16,;@;"PLAY AGAIN ? € Y OR N J 


3933] LET S$=INKEY#: IF S$="" THEN GO TO 
355] 


33992 IF S¢$="N" THEN NEW 
S393 IF S¢="T" THEN RUN 


Chapter 2 


Type Attack 


> 


Description 


This game is designed for the younger user or someone who has 
just acquired his first computer and is trying to find his way 
around the keyboard and familiarise himself with the position of 
the various letters. 

As the title suggests you will be attacked by various letters of 
the alphabet which will move down the screen towards your 
base. These letters can be despatched by typing the correspond- 
ing key. If your knowledge of the keyboard is good and your 
reflexes ultrafast then you might just manage to score a hit in the 
cyan bonus area. 
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32 PRINT AT 3,63" YESTERDAY, THE WORD 

PROCESSORSOF THE WORLD REBELLED, 
THREATENING THE VERY EXISTANCE OF MA 
NKIND 222 
LETTERS RAINING FROM 

THE SKY 828FORTUNATELY, THE MEGA-BEUVAWAT 
T LASER TURRETS HAVE BEEN SET UP SO TH 
AT BY TOUCHING THE KEY CORRESPONDING 
TO THE LETTER FALLING WILL CAUSE TH 
AT LETTER TO RETREAT. DESTROYING A LETT 
ER IN THE IONOSPHERE GIVES A BONUS? 


GOOD LUCK? 


4@ PRINT AT 2,03" “3AT 2,313" "3AT 18, 
alg? * 

S@ INPUT "START LEVEL-(@=FAST-3=SLOW) 
* SP 

6@ IF SP<@ OR SP>S OR SP<>INT SP THEN 
GO TO 5@ 
1868 FOR A=1 TO 16: CLS 
1818 BORDER 7: PAPER ?: INK @ 


1011 PRINT AT G,;@3"LIVES — “3LIVYES;" SCO 
RE- "3S$3" HI- "3H$ 
1828 PRINT AT 21,;@3; INVERSE 13” 

"3 INUERSE @ 


1@21 PRINT AT g2lslzé¢ TNUERSE 13°LEVEL "3 
SP 
1822 PRINT AT 5,8; PAPER 53" 


1@25 PLOT @,8: DRAW 8,15: DRAW 8,-15: PL 
OT 255,8: DRAW -8,15: DRAW -8,-15 

1@3@ LET L=INT CRNDX26) 

1848 LET L$=CHR¢ (65+L) 

1@5@ LET X=Lt3 

1@6@ FOR Y=2 TO 28 

1@65 PAPER CATTR CY-1,;X%)J78): PRINT AT Y- 
1,%3" % 


Type Attack 
1676 PAPER CATTR CY;X)78): PRINT AT Y3%3 
L$ 
1688 FOR I=1 TO SP: NEXT I 


1@9@ LET Q$=INKEY$: IF Q¢="" THEN GO TO 
115¢ 

1100 IF Q$=L$ THEN GO TO 2886 

115@ NEXT Y 


1151 LET Y=21: PRINT AT 2@,X3" 

1288 FOR G=4@ TO 25 STEP -1: PRINT AT 21 
+X; INK 2;CHR¢ 134: BEEP .@5,G: PRINT AT 
21,X3;CHR¢ 137: BEEP .@5,G-1: PRINT AT 2 
1,X3;CHR¢ 134: BEEP .@5,G-2: PRINT AT 21; 
X;CHR$ 137: BEEP .@5,G-3: NEXT G 

1218 INK @: LET LIVES=LIUES-1: PRINT AT 
@,83;LIVES: IF LIUES=@ THEN GO TO 3902 
1226 CLS : NEXT A 

123@ IF SP<>@ THEN LET SP=SP-1 

1248 GO TO 198aa 

2@@8 INK 2: IF L>13 THEN GO TO 25a@ 

2018 PLOT 8,24: DRAW (8kCX-1)3,0C18-Y)x*8 
+4 

2828 INK @: GO TO 26282 

25@@ PLOT 247,24: DRAW -(8x*(38-X)),((18- 

Y)*8)+4 

26@@ IF Y>=5 AND Y<=6 THEN LET SCORE=SC 

ORE+1@@@: FOR I=] TO 5@: BEEP .@@1,20: B 

EEP .@@1,3@: NEXT I: PAPER 7: INK @: GO 
TO 2621 

2681 BEEP .1,1@8 

26@5 INK 7: PLOT 8,24: DRAW (8xX(X-1)), CC 
18-YJX8)+4: PLOT 247,24: DRAW -(8x*(38-X) 
3, €C18-Y)*8j)+4 

2618 INK @: PLOT @,8: DRAW 8,15: DRAW 8B, 
-15: PLOT 255,8: DRAW -8,15: DRAW -8,-15 
2613 INK @: FOR G=Y TO 2 STEP -1: IF G<= 
4 OR G>=? THEN PAPER 7: PRINT AT G,X3" 
': GO TO 2615 

2614 PAPER S: PRINT AT G,X3" " 

2615 IF G-1<=4 OR G-1>=? THEN PAPER ?: 
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PRINT AT G-1,X;L¢: GO TO 2617 


2616 PAPER 5: PRINT AT G-1,X3;L¢: PAPER ? 
2617? BEEP .@1,21-G: NEXT G 


262@ PRINT AT 15,%3" " 

2621 LET SCORE=SCORE+(21-Y): LET S¢#="088 
@6"+STR$ SCORE: LET S¢#=S#(LEN S$-4 TO LE 
N S$) 

2625 IF VAL S$>UAL H# THEN LET H$=S$¢ 
263@ CLS : NEXT A 

2540 IF SP<>@ THEN LET SPeSP=1 

2658 GO TO 1882 

3666 PRINT AT 18,18; INK @; FLASH 13;"GAM 
E OVER"; FLASH @ 

3616 IF SCORE>TC18) THEN GO TO 3180 
3626 PRINT AT 12,83;"PLAY AGAIN?" 

3838 IF INKEYT$="YT" THEN LET LIVES=3: LE 
T SCORE=@: LET S¢="9@0@@": GO TO 19088 
3648 IF INKEY¢="N" THEN STOP 

38586 GO TO 3832 

3186 FOR J=1 TO 380: NEXT J 

3116 CLS 

3120 FLASH 1: PRINT AT 18,1@;"CONGRATULA 
TIONS" 

313@ PRINT AT 12,;73"YOU ARE ON THE TABLE 


9314@ FLASH @ 

315@ FOR I=1 TO 42 

916@ BEEP .@1,1 

3178 NEXT | 

918@ INPUT “ENTER YOUR NAME=" ;N$ 
9198 CLS 

9288 PRINT TAB (1@);"HIGHEST SCORES" 
9218 PRINT TAB (1@)3"======= =====5" 
9228 PRINT 

9238 FOR I=1 TO 18 

9248 IF SCORE>TCI) THEN GO TO 3270 
9252 NEXT I 

9268 GO TO 9330 

9272 FOR J=9 TO I STEP -1 


intrain tn (A in 1N (0 tN tO (0 


3288 
32396 
3368 
3318 
3326 
3338 
3348 
3356 


344a 
3418 
3428 


LET TGJ+i3=[GJ2 
LET T$(CJtlI=T$CI) 
NEAT J 

LET TCIJ=SCORE 
LET T#CIJ=N$ 

FOR I=1 TO 1G 
PRINT T#CI);,7CI) 
NEXT I 

PRINT = PRINT 


PRINT TAB (8)3"PLAY AGAIN?" 


GO TO 3838 
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Canyon Bomber 


Description 


The object of the game is to fly your slow-moving balloons and 
faster single-wing bombers over the great canyon, trying to 
destroy as much of your enemy’s supplies as possible. Unfor- 
tunately, the bombs must be dropped during a single pass over 
the canyon since they are very unstable and can detonate onboard 
if they are not jettisoned within a given period of time. You have 
five craft in all, but the enemy has a lot of supplies. Good luck, 
good hunting and bombs away. 


QO 2 oO em 
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Hints on entry 


The game is relatively straightforward to enter provided that the 
usual care is taken over the user-defined graphics. These are 
represented by lower case letters as opposed to the upper case 
letters used for the remainder of the program. Care should also be 
taken with the data lines (9100-9140 and 9260-9330), since an 
incorrect entry in this section will cause errors in the graphical 
display. 


Techniques 


One facility often included in many commercial packages is a 
high score table which displays on the screen the ten best scores 
obtained in the game. Such a facility has been included in this 
and several other games in the book. The methods employed to 
obtain such a table are described below. 


1) Two arrays are set up—one for names and the other for the 
corresponding scores—and the starting values to be used at 
the beginning of the game are assigned. 


1@ REM DEFINE HIGH SCORE TABLE 
28 DIM H$C1@,1@): DIM HC1@8) 

38 FOR I=] 10 1a 

4@ LET H#CIJ="FRED" 

5@ LET HCI)=188 

6@ NEXT I 


2) During the game the score, represented by some variable S, 
will be updated. Upon completion of the game, the program 
should branch to a subroutine which checks the player’s 
score against the lowest score on the table and then takes the 
appropriate action. 


938828 REM HIGH SCORE TABLE: CLS 

3618 IF S<HC1@) THEN GO TO 3158 
3626 PRINT “CONGRATULATIONS” 

9303@ INPUT “ENTER YOUR NAME... "35A$ 
3646 IF LEN CA$)>1@ THEN GO TO 3438 
9458 CLS 
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3466 FOR I=1 TO 18 V 
93672 IF S>HCI}J THEN GO TO 3436 v 
38680 NEXT I d 


9298 FOR J=3 TO I STEP -1 

3188 LET HCJ+1)=HCJ) 

9118 LET H$(J+1)=H$(J) I 
3128 NEXT J 

9138 LET HC1)=S 

9148 LET H$C1)=As 

9158 PRINT TAB (18);"HIGHEST SCORES" 
9168 PRINT TAB (1@);"======= ======" 
9178 PRINT 

3188 FOR I=1 TO 10 

9198 PRINT H$C1J,HCI) 

3200 NEXT I 

9218 RETURN 


Explanation 


9010 If score is not high enough to register on the table 5 
then jump to printing section. 

9020-9040 Enter and check name 

9060-9080 Print headings. 2 

9090-9110 Look for point of insertion on table. 

9120-9170 Insert name and move all other records down one 
place. 

9180-9210 Print updated table and return to main part of 
program. 


This routine could be used in all games programs employing 
the variable S for the score. 


Instructions 


Load the game from tape or microdrive by typing: 
LOA sant 
or 


LOAD #“M”;1;“CANYON” 
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When loaded the game will run automatically. A brief description 
will be displayed on the screen after which there will be a short 
delay while the computer initialises the screen and the variables. 


Listing 


IMPORTANT 
1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED IN LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


1 LET S=@: LET L=5: LET HS=@ 
2 PAPER 7: POKE 23658,8 

3 FOR J=1 TO 82 

4 READ A 

= POKE USK "A tl=laA 

6 NEAT I 

7 


DATA 32,55,63, 63,55, 33,8,8,8, 254,25 
5,255,294, 165224, 224585 127,255, 255, 127,8 
Fo?) 452369252; 252, 230,132,058 

g DATA 96,112, 12751275 12752: 111;:6543; 
253, 255,253, 65, 128, 128,@, 1485 19}; 295,191 
» 1305 bale Bs 14, 2545254, 294. 845 128; 128 

9 DATA 128,192, 254,255, 254, 192, 12858, 
1s By 127, 255s 12753, 1.8 

1@ CLS 

11 DIM SC28,12) 

12 DIM H$C(1@,18) 

13 DIM HC1@) 

14 FOR I=] TO 10: LET HCIJ=@: LET H$CI 
J="CESIL": NEXT I 

15 GO SUB 33a2 

2@ GO SUB 3aa@ 

38 GO SUB 32284 

4@ GO SUB 82920 

5@ PAPER 7: INK @ 

68 PRINT AT 1,33"SCORE="3S 

7@ PRINT AT 1,223;"LIVES="5L 


32 Spectrum Supergames 


8@ PRINT AT 2,1@3;"HIGH SCORE="3HS 

38 PLOT 8,175: DRAW 255,@: DRAW @,-38: 
DRAW -255,0@: DRAW @,38 

1@@ LET R=RND 

1@1 LET D=@ 

Lez LE! Siss 

1@5 PAPER 5 

11@ IF R>.75 THEN GO SUB 5@@@: GO TO 1 
78 

126 IF R>.S THEN GO SUB 5188: GO TO 17 
13@ IF R>.25 THEN GO SUB 5264: GO TO 1 
70 

14@ GO SUB 5388 


17@ INK @: PAPER ? 
18@ PRINT AT 15,938 


161 IF S81 THEN LET Lel=1 
182 IF S/7335=INT (S7335) THEN GO TO 30 
183 PRINT AT 1;283L 
184 IF L=@ THEN FLASH 1: PRINT AT 7;1@ 
3"GAME OVER": FLASH @: PAUSE 1@@: GO TO 
72GB 
1986 GO TO 18@ 
3339 STOP 
5806 FOR I=@ TO 31 
2018 PRINT AT S51 3"ab" 
5626 IF INKEY$="@" AND D=@ THEN GO TO 5 
950 
5@25 PAUSE 1] 
5638 PRINT AT S;]3" “ 
3835 NEXT I 
5840 RETURN 
39658 FOR J=6 TO 2@ 
5@55 IF ATTR CJ,;13)=56 THEN GO TO 5871 
3866 PRINT AT J,13"i" 
38635 PRINT AT J;I3" * 
5@7@ NEXT J 


38/1 IF 143 OR I=31 THEN GO TO S5@75 
“872 FOR K=] TO 12 


5673 
5874 
S875 
3888 
5142 
5116 
5126 
156 

2125 
5138 
2135 
5148 
5158 
2155 
5166 
S165 
5178 
S17 1 
al7zZ 
al73 
a1P4 
ales 
3188 
5206 
3218 
5226 
256 

5238 
b235 
5240 
5258 
ALIS 
5268 
aZos 
5278 
5271 
2/2 
5273 
5274 
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LET S=StS(I-2,K): LET SCI-2,K)=6 
NEXT K 

LET B=] 

GO TO 5@25 

FOR I=31 TO 1 STEP -l 

PRINT AT S;,13"ed" 

IF INKEY$="@" AND D=@ THEN GO TO 5 


PAUSE 1 
PRINT AT Seig” * 


NEXT J] 
RETURN 


FOR J=6 TO 28 

IF ATTR CJ;13=56 THEN GO TO 5171 
PRINT AT dots" 

PRINT AT J313" 

NEXT J 

IP I1<3 OR [£31 THEN GO JO SLAS 
FOR K=1 TO lz 

LET S=StSCI-Z,KJ4 Le’ SCI=2;Kj=@ 
NEXT K 

LET D=i 

GO TO siZzs 

FOR I=@ TO 31 

PRINT AT Si] 3"ef" 

IF INKEY$="@6" AND D=@ THEN GO JO 5 


PRINT QE S, rg?" °° 

NEXT I 

RETURN 

FOR J=6 TO 20 

IF ATTR CJ;1)J=56 THEN GO TO 527] 
PRINT AT Js tse" 

PRINT AT J3,13" " 

NEXT J 

IF 143 OF [#31 THEN GO TD S275 
FOR K=] TO 12 

LET S=StS(I=-2,.K]? LET SCI-2,;K)=6 
NEXT K 
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5275 
5288 
5320 
5318 
5322 
358 

5338 
5335 
5342 
5350 
5255 
5360 
5365 
5378 
5371 
S72 


5373 
5374 
Pee se 
5388 
7882 
7885 
781 
7611 


LET D=1 , 

GO TO 5225 

FOR I=31 TO 1 STEP -1 

PRINT AT 5,13"gh" 

IF INKEY$="@" AND D=@ THEN GO TO 5 


PRINT @f Sgig* ” 

NEXT I 

RETURN 

FOR J=6 TO 20 

IF ATTR CJ;1)=56 THEN GO TO 5371 
PRINT AT Jats" s" 

PRINT Al doig° * 

NEXT J 


IP 163 OR 1-31 TREN GO TO S875 
FOR K=l TO 12 


LET S=StSCl=2,KkJ% LET SCISZ;KIJ=6 
NEXT K 

LET D>] 

GO TO S325 

REM XHIGH SCORE TABLEX 

LET HS=s 

CLS 


FLASH 1: PRINT AT 18,18;"“CONGRATULA 


TIONS” 


7812 


7613 
7814 


7@15 
7616 
7817 
7818 
7828 
7838 
784@ 
7856 
7062 
7870 
788 


PRINT AT 12,73" YOU ARE ON THE TABLE 


FLASH @ 

FOR I=1 TO 4a 

BEEP .@151 

NEXT I 

INPUT “ENTER YOU NAME="3N¢ 
CLS 


PRINT TAB (1@);"HIGHEST SCORES" 
PRINT TAB (1@)3"s====== ======" 
PRINT 

FOR I=] TO 1@ 

IF HS>HC(I}) THEN GO TO 718@ 
NEXT I 


GO TO 714@ 
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7196 FOR J=3 TO I STEP -1 

20 LET AtdelI=nCt 

7115 LET H$CJt+1)J=HE$CJ) 

2120 NEXT J 

713@ LET ACLIEHS 

7135 LET H$CIJ=N$ 

714@ FOR I[=1 TO 18 

7215@ PRINT H#CIIJ;,HCI) 

716@ NEXT I 

717@ INPUT “PRESS ENTER TO CONTINUE." 52$ 
7171 LET L=S: LET S=@: LET HS=H(1) 

718@ INPUT “DO YOU WANT ANOTHER GAME=" 3A 
$ 
7198 IF ASC1IJ="Y" THEN GO TO 15 

720@ STOP 

8888 REM xSCORE-BLOCKSx* 

8801 PAPER 5 

3818 FOR X=1 TO 28 

8628 FOR Y=1 TO 12 

3825 IF SCX,YJ=@ THEN GO TO 88448 

8838 PRINT AT Y+8B,Xt2;CHRS C48+SCX,;, I) 
8846 NEXT Y 

g@56 NEXT X 

8868 RETURN 

3888 REM XSCREENX 

9388] RESTORE 93180 

93085 LET X=@: LET Y=4 

3818 READ A;B 

3626 INK B 

34386 FOR J=1 TO A 

384@ PRINT AT Y,X3CHR¢E 143 

3845 LET X=X+l 

3656 NEXT J 

9966 JF x=32 THEN LET Y=Ytl?: LET x=@ 
93870 IF Y<>22 THEN GO TO 938612 

3875 PAPER 5 

93838 RETURN 

S1@0 DATA 32; 5432; 5, 323553255 

9116 PATA 159;315,5,2,0,38,5,4,0,28;5 
31208 DATA 405 27 55s la@s 53.03 26553 1505558, 
Bag ig 2B 

9138 DATA 5,4,24;,5;3,;0,;5,80,;24,5,3,0,6,6; 
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22;554:80,;6,;86,21,5,5,8 

314@ DATA 6,8,20,5,6,6,6,0,18,5,2,8,8,5, 
6,6,6,0,18,5,3,8,7,5,6;,80, 32,8 

3200 RESTORE 93260 

32@5 FOR Y=1 TO 12 

321@ FOR x=] TO 28 

3226 READ A 

3221 IF A=@ THEN READ B 

3222 IF A<>@ THEN LET SCX, YJ=A: GO TO 3 
238 

3223 FOR I=1 TO B 

3224 LET S(x;YI=@ 

3225 LET X=X+t1? IF X=23 THEN GO TO 924@ 
3226 NEXT I 

3227 IF X<>29 THEN GO TO 9228 

3230 NEXT x 

3246 NEXT Y 

3258 RETURN 

32628 DATA 3,4,27,6,1,6,06,26,0,1,9,8,25,9 
3278 DATA @,2,4;0;23,;8,;9,8,;2,3,8,22,7;9, 
@,1 


3288 DATA @,2,1,1;4,20,6,9,;4,;2,0,2,9,3,1 
»>252;1,;80,;11,152,;2,3,;49;,;5,;9,;0,2 

3238 DATA @,35;2,1,2,3,1,8,18,4,;2,1,3,154 
:7;8;3 


33286 DATA @,3,;3,;1;3,13,15,4;:6,:3,0,6,3,151, 
1,52,;3,;1;6,4 


3318 DATA @;3315151323;2,2535452;455534;37; 
ls Za ZaSa le 4,1;,;8,5 

3328 DATA 633,2,4;2;,3,2,4;1515,1,6;8;,2,3, 
42; lyi4325313153;035 

333@ DATA @533;93,1315,2,2,2,3;1;2;7;8;3;4; 
1,13;2,3,;1,2,@8;5 

3386 REM XINTRODUCT IONxX 

3916 CLS 


9928 PRINT TAB (1@);"CANYON BOMBER" 

99328 PRINT TAB (10) ;"====== ======" 

33428 PRINT 

3942 PRINT "THE OBJECT OF THE GAME IS TO 


33¢ 
Car 
33? 


is 


33544 
CAN" 
3346 
S298 
3956 


THE” 
S552 


S354 
2356 
3357 
9958 


S359 
3966 


S361 
S962 
3968 
93964 
3965 
3366 
S367 
3968 
3976 
Toa" 
3372 
HESE* 


3574 
3376 


3378 
aa73 
3386 
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PRINT “SCORE AS MANY POINTS AS YOU 


PRINT "BY PROPPING BOMBS INTO THE " 
PRINT “CANYON. (KEY-@)" 


PRINT "THE BOMBS ARE DROPPED, FROM 


PRINT "BALLOONS OR THE DIVE BOMBERS 


PRINT "AS SHOWN BELOW, " 
FOR I=] TO 2@ 

PRINT AT 12,13" ab" 
PAUSE 2 


IF I1<>2@ THEN PRINT AT 12,13" “ 
NEAT I 


PRINT AT 12,63;"BALLOONS" 

FOR I=1 TO 2 

PRINT AT 24s: 13"e4" 

PAUSE 2 

IF I1<>2@ THEN PRINT AT 14,13" “ 
NEXT I 


PRINT AT 14,63;"DIUE BOMBERS" 
PRINT ??? 


PRINT “YOU HAVE 5S LIVES WITH WHICH 
PRINT “COMPLETE YOUR MISSION; BUT T 


PRINT "CAN BE LOST BY HITTING THE " 
PRINT “WALLS OR MISSING THE TARGET. 


INPUT “PRESS ENTER TO CONTINUE." 32$ 
CLS 


RETURN 
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Missile Attack 


Description 


As commander-in-chief of the 1st Anti-Missile Battalion, it is 
your job to defend our great city from total destruction by the 
enemy’s megaton super missiles. To protect the city, you have at 
your disposal two auto-ranging bevawatt lasers which you 
control from the underground defence computer situated 
beneath the centre of the city. 

The screen of the defence computer shows the city, the laser 
cannon and the track of the enemy missiles as they descend, 
locked onto their target. For how long can you concentrate 
because the enemy never give in and the attack waves become 
more and more ferocious? 


cea wt Ss 


io? Ty 
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Hints on entry 


As with the previous program (Canyon Bomber), Missile Attack 
should be straightforward to enter, the only problems being 
those relating to the user-defined graphics and the number of 
spaces (32) between the quotes in line 1. When the program has 
been entered, it should be saved on tape or microdrive by typing: 


SAVE “MISSILE” LINE 1 
or 


SAVE #“M”;1;“MISSILE” LINE 1 


Techniques 


Missile Attack has been designed to be totally controlled by a 
joystick connected to the Spectrum via the Sinclair Interface 2. 
The joystick is used to control movement, to fire the lasers and to 
enter a name should a high score be obtained. This is achieved by 
using the joystick to move the cursor along a screen menu and by 
using the fire button to enter a letter. 

If you own an Interface 2, then the use of a joystick routine can 
enhance your program as well as save on the wear and tear of the 
keyboard caused by excessive use of one or more keys. 

The most efficient way of using the joystick is to use the IN 
command to check for a particular key or combination of keys. A 
typical routine for testing the position of the joystick is shown 
below: 


9@@@ REM JOYSTICK ROUTINE 

9@1@ LET FIRE=@: LET HM=@: LET UM=2 
9828 LET A=255-IN 61438 

9@3@ IF A=@ THEN RETURN 

9848 IF A>127 THEN LET A=A-128 

93@5@ IF A>63 THEN LET A=A-64 

3868 IF A>31 THEN LET A=A-32 

9@7@ IF A>15 THEN LET A=A-16: LET HM=-1 
9@8@ IF A>? THEN LET A=A-8: LET HM=1 
9898 IF A>3 THEN LET A=A-4: LET UM=1 
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314@@ IF A>1 THEN LET A=A-2: LET UM=-] 
S11@ IF A=1 THEN LET FIRE=1 
93128 RETURN 


When the computer returns from the subroutine to the main 
program, the horizontal movement and the vertical movement of 
the cursor are shown in the variables HM and VM, respectively, 
and if the fire button has been pressed, the variable FIRE will 
contain the number 1. 


Instructions 


Load the game from tape or microdrive by typing: 
LOAD”” 


or 
LOAD *“M”;1;““MISSILE” 


When loaded the game will run automatically, and the city, your 
laser guns and the surrounding district will be displayed on the 
screen. The enemy missiles are indicated by their tracks on the 
screen. When the attack starts you must use the joystick to 
intercept them by placing the missile in the centre of your sight. 
Each attack wave consists of ten missiles which must be 
destroyed before moving to the next level. 


Listing 


IMPORTANT 
1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED IN LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


1 LET S¢=" 
"2? LET T$=S$ 
2 FOR I=1 TO 193 
3 LET S$=S$+T$: NEXT I 
4 LET FIRE=@: LET QUW=2 


+] 


C5) 


16 
11 
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DIM SC53: DIN GC5): DIM YCS3J: DIM R 


POKE 23658,8 

GO SUB 39986 

ELS 

LET SCORE=@: LET H$="": LET NM=3: L 


ET NMT=@: LET LEVEL=@: LET HSCORE=@: LET 


EM=0 


14 
ti 

1S 

16 


LET Q=1@: LET P=14: LET LEVEL=LEVEL 


LET HMN=@: LET UN=@ 
LET YC1)=174: LET YC2)=174: LET YC3 


J=174: LET YC4)=174 


28 
38 
35 
42 
44 
45 
46 
47? 
+]: 
56 
68 
359 
18086 
1881 
1818 
1828 
1838 
1835 
1842 
1641 
1845 
1858 
2088 
2861 
2618 
2820 


GO SUB 3888 

GO SUB 1888 

PRINT AT Q,P3"a" 

GO SUB 2880 

FOR I=] TO NM 

IF YCIJ<24 THEN GO TO 8880 

NEXT I 

IF NMT=1 THEN LET NMT=@: LET NM=NM 


GO TO 14 


GO SUB 3888 

GO TO 4@ 

STOP 

REM XATTACK MISSILEXxX 

FOR K=1 TO NM 

LET SCKJ=INT CRND*¥255)+1 

LET RCKI=174 

LET GCKI=RCKI“CSCKI-TA) 

LET T=YCK) 

DEF FN XCTIJ=CYCKI+CGCKIXTXIIZGCK) 
IF QW=1 THEN LET QW=@: RETURN 
NEXT K 

RETURN 

REM *XPLOT MISSILEXxX 

FOR K=1 TO NM 

LET FCRIRT CK —4 

LET T=YCK) 
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2832 
2631 

2035 
2842 
3886 
3818 
3611 

3828 
3832 
3048 
3656 
3868 
3878 
3898 
3182 
3112 
3128 
3125 
3126 
3127 
3128 
SiL29 
3132 
3135 
3148 
3156 


3168 
3165 


3166 
3178 
3188 
3181 
3182 
3183 


aie 
: 


32088 
326] 
3205 
3212 


PLOT SCK Js 174 

DRAW INT CFN XCTI-SCKII3 YCKI-174 
NEXT K 

RETURN 

REM *XMOUEMENT *X 

LET A=255-IN 61438 

IF A=@ THEN RETURN 

IF ASLE? THEN LET f=A-L2e 

IF A>63 THEN LET A=A-64 

IF ASS THEN LET A=A-32 

TF iS THEN LE? fep-1f2 Let Ae] 
IF A>? THEN LET A=A-8: LET HM=1 
IF A>3 THEN LET A=A-4: LET UM=1 
IF A>] THEN LET A=A-2: LET UMN=-] 
IF A@=1 THEN LET PISE=1 

PRINT AT Q,P3" * 

LEY P=: LET G=Brult 

INK @ 

IF Q@<@ THEN LET Q=@ 

IF Q@18 THEN LET Q=18 

IF P<@ THEN LET P=@ 

If P22] THEN LET P=31 

PRINT AT G,P3"a" 

LET HM=@: LET UM=@ 

IF FIRE=@ THEN RETURN 

LET TAX=PX8+4 

LET TAY=(C21-Q)*8+4 

IF TAX>128 THEN LET M1=247 

IF TAX<=126 THEN LET Mi=3 

PLOT M1,16: DRAW TAX-M1,TAT-16 
LET FIRE=@ 

INK 2 

PRINT AT Q,P3"b" 

FOR 2=1 TO 8@: NEXT 2: PRINT AT Q,P 


INK 5S 

OVER 1 

PLOT M1;16 

DRAW TAX-M1; TAY-16 


B21 1 
3215 
3226 
3236 
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OVER @ 

INK @ 

FOR K=] TO NM 

IF ABS. CTAA=FN XCTCKIII<4 AND ABS C 


TAY-YCKIIJ<4 THEN GO TO 3266 


3248 
83245 
3258 
3385 
3306 
3367 
3388 
3389 
8312 


NEXT K 

PRINT AT Q,P3"a" 

RETURN 

LET QW=1: GO SUB 1814 

LET tiR Jl 74 

PRINT AT 8,83;S$ 

LET SEGRE=SCOREF1 

PRINT #13 AT @,243;"SCORE=" ;SCORE 

IF SCORE’1@=INT CSCORE71@) THEN LE 


T NMT=1 


3328 
8888 
8814 
8811 
8815 
BB2B 
3832 
8848 
8444 
8845 
BB46 
8858 
8868 
8878 
8082 
8898 
8188 
811a 
eil1S 
8126 
8138 
814 


ASH @ 


8158 


GO TO 3240 

REM *XDEAD ROUT INEXxX 

CLS 

LET LEVYEL=e 

PRINT “SCORE=" 3SCORE 

POR f=] TO 4 

FOR J=@ TO 7? 

PAPER J 

BORDER ?-J 

ELS 

BEEP .@@09,JxX2 

NEAT J 

NEXT I 

BORDER 7? 

PRINT TAB (€1@)3;"GAME OUER" 
PRINT [AS (IG) ¢*ss== axa" 
IF SCORE<HSCORE THEN GO TO 8786 
LET HSCORE=SCORE 

LET H$="" 

LET SCORE=2 

PRINT = PRINT 

PRINT FLASH 13;"NEW HIGH SCORE"; FL 


FOR 2=1 TO 13 
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g166 PRINT AT 8, (02+CJ*2333 INUERSE 13CHR 

$ (64+J)3; FLASH @ 

817@ NEXT J 

8186 FOR J=1 TO 13 

819@ PRINT AT 12, C2+C€CJ*¥2333; INUERSE 13CH 

R$ (77?+JJ3 INVERSE @ 

8268 NEXT J 

821@ PRINT AT 16,143 INVERSE 13"."3 INUE 

RSE @ 

8211 PRINT AT 16,163 INVERSE 135"#"3 INUE 

RSE @ 

6226 LET J=9: LET I=4 

6238 PRINT AT det p's 

8246 GO SUB 84282 

8245 IF EM=1 THEN LET EM=@: GO TO 14 

8256 GO TO 8244 

8488 REM XXNOUE POINTERXX 

e4i@ LET Lea: LET R=@: LET Fee 

8428 LET A=255-IN 61438 

8438 IF A=@ THEN RETURN 

844@ IF A>127 THEN LET A=A-128 

8456 IF A>63 THEN LET A=A-64 

8468 JF APS] THEN LET Aef-3zZ 

@478 IF Ae1S THEN LET AeA-?6@* LET Le] 
8488 IF A>? THEN LET A=A-8: LET R=1 
8436 IF A>3 THEN LET A=A-4 

$308 IF A>1 THEN LET A=A=2 

ell@ IF 4-1 THEN LET F=] 
8528 PRINT AT J,135" " 
eos@ IF l=] THEN LET I=] 

eee Ir Fl THEM LET i= 

68541 IF I=3@ AND J=S THEN LET I=4: LET 
1213 

8342 IF I=3@ AND J=13 THEN LET J=14: LE 
Y JZ 

eat3 IF [#18 AND J={1/7 THEN LET I[=4: LET 
J=9 

8344 IF I=2 AND J=S THEN LET I=16: LET 
JE? 


nA tn 


io (0 (Oo (non (0 
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8545 IF I=2 AND J=13 THEN LET I[=28: LET 
J=9 

8546 IF I=12 AND J=17 THEN LET 1=28: LE 
bf JTS 

S558 PRINT AT Jd. 23°" 

8568 IF F=@ THEN RETURN 

8570 IF J=3 THEN LET H$=H$+CHR$ C65+CCI 
a ae) 

8571 IF J=13 THEN LET H$=H$+CHR$ (78+CC 
P7223 

8572 IF J=17 AND I]=14 THEN LET H$=H$t", 


8573 IF J=17 AND I]=16 THEN LET EM=1 
8574 IF LEN CH$)=5 THEN LET EM=1 

8588 PRINT AT 2@,123H$ 

8598 RETURN 

87@@ PRINT AT 28,123;"FIRE TO CONTINUE" 
871@ IF INKEY$<>"@" THEN GO TO 871@a 
8728 LET EM=1 

8738 GO TO 14 

3808 REM XXDRAW SCREEN*X 

$281 PAPER 5 

9882 CLS 

$81@ FOR I=@ TO 31 

2828 PRINT AT 21,13 INK 43;CHR$ 143 
$838 NEXT I 

$2428 INK @ 

S258 PRINT AT 2@,03"d": PRINT AT 20,163". 
2 

3862 PRINT AT 28,313"c" 

3872 PRINT AT 28,15;"e" 

3088 LET TX=128: LET TY=a 

$188 PLOT 143,8 

3118 DRAW -32,8,PI 

3115 INK @ 

$120 PRINT #13AT @,93;"LEVEL=" ;LEUEL 
$138 PRINT #13AT @,24;"SCORE=" ;SCORE 
2148 PRINT #13AT 1;,193;"HIGH SCORE=" 3HSCO 
RE 
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3156 
3168 
33988 
39128 
33926 
3938 
394@ 
3956 
3968 
SSB 
33972 
3375 
3988 
3998 


PRINT #13AT 1,;@3"HIGH SCORER=" ;H$ 
RETURN 

REM XXGRAPHICS*xX 

FOR J=6 TO 4? 


READ 
POKE 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


A 

USR "A'+I;A 

I 

24524, 24; 231; 231; 24; 24; 24 
68,126; 254; 254, 254, 127;127,63 
128,64,6@,6@, 126,126,255, 255 
1,2,686,6@, 126, 126,255,255 
6,8, 28, 92, 252, 2543 255; 255 
8,16;,;56,58,63, 127,255; 255 


RETURN 
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Shootout 


F ol 


EN 


Description 


Shootout is a game for two players which requires skill, cunning 
and ultra-fast reflexes in order to become the greatest gunfighter 
in the Wild West. The object of the game is to win six duels to the 
death against your opponent while avoiding the random shots 
being taken at you by some Indians escaping in their stolen 
wagon. 

This may all sound extremely easy, but just remember that the 
life expectancy of a gunfighter is very, very short. 
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Hints on Entry 


As the game is totally graphical, plenty of use is made of the 
user-defined graphics facility and these characters are repre- 
sented in lower case letters as usual. When the program has been 
entered it should be saved on tape or microdrive by typing: 


SAVE “SHOOTOUT” LINE 1 
or 
SAVE #”M”’;1;’“SHOOTOUT” LINE 1 


Techniques 


When writing games programs it is often necessary to produce a 
complex picture on the screen, which as the game progresses 
changes to suit a developing situation. In such a case, when it is 
time to start anew game the screen has to be regenerated and this 
process can often take a long time. 

A method of surmounting this problem is to create the picture 
once at the outset of the program and then to transfer it, using 
machine code, into a position in high memory. The complete 
picture is then retained above RAMTOP and can be reproduced 
on the screen very quickly by using a second routine. 

The following short program reorganises the memory, leaving 
space for the picture, and provides the user with the two required 
machine code routines. 


10 CLEAR 54000 

20 FOR I=1TO 23 

30 READA 

40 POKE 54000+LA 

50 NEXTI 

60 DATA 1,0,27,17,216,214,33,0,64,237,176,201 
70 DATA 1,0,27,17,0,64,33,216,204,237,176,201 


When the program has been entered and run, the system is 
initialised and the routines are situated at locations 54000 and 
54012. Therefore, to store a picture USR 54000 is typed, and to 
recall a picture USR 54012 is typed. 

As the routines are set above RAMTOP, typing NEW will not 


ee 
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affect them and they remain usable until the machine is switched 
off. 


Instructions 


Load the program from tape or microdrive by typing: 
LOAD” 

or 
LOAD *”“M”;1;“SHOOTOUT” 


When loaded the program will run automatically, and a brief 
description of the game will appear on the screen. Each duel will 
last for a set period of time, the passing of which is indicated by 
the descending scale at each end of the screen. Each player must 
attempt to move his character into the correct position in order to 
kill his opponent. The score obtained for a kill depends on the 
amount of time remaining. 


Listing 
IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE REPRESENTED BY LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


1 POKE 23658,;8 

5 GO SUB 58a 

6 LET Q$=CHR¢ 138: FOR I=1 TO 31: LET 
Q$=Q$+tCHRS 138: NEXT I 

1@ INK @: PAPER 6: CLS : BORDER 6: INP 
Lip 

iS LET Bl=38: LET D2a=s 

16 LET S1=@: LET S2=@ 

17 PRINT #@;TAB 8; FLASH 13"PRESS ANY 
KEY" 
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2B. PRINT 22282292 INK Zs i 
"SCHR$ 139;CHR$ 1313" "3CHR$ 138;CHRS 
1333" “FEHR ISS3GHRE 35s" “TCHRE Ise" 
“SCHRE 1383" “S3CHRE 1393CHRS VS4i" "3c 
HR# 1393;CHR$ 1353" “3CHR$ 1383" “CHR | 
38 3;CHR$ 1423" ";CHR# 1383” “SCHR | 
SIsSCHRS 1953" “sCHRS ISSsCHRe 1353" *3CH 
R# 1383;CHR# 1333" “3CHR$ 138;CHR$ 1363CH 
R$ 1383" "“3CHR# 1383;CHRF 13335" "3CHRE 1 
3B;CHR$ 1333" “3CHRS 1383CHR$ 136;CHRF 1 
38j;CHR# 1383;CHR$ 138;CHR¢ 13835" e Sc 
HR 148;CHR¢ 1413" “3CHRS 1383CHR$ 1333" 
"3CHR$ 1423;CHR# 1413" "“3CHRS 1343;CHRS 1 
343;CHR# 134;" “3CHR$ 142;CHRF 1373" "5C 
HR# 1425CHRE 1413" "SCHR 13435CHRE 1345C 

HR¢$ 13@;CHR$ 138;CHRE 1239;CHRE 138 

25 PRINT FLASH 13; INK 23; PAPER 1;AT @ 
:@;Q$;AT 21,0;Q¢$: FOR N=] TO 2@: PRINT 
FLASH 2g INK 23 PAPER 213AT Na@p'O" FAT No 
3135"?": NEXT N 

30 LET L=]2 LET €=3: GO SUB 14e@ 

35 LET L=16: LET C=28: GO SUB 14@ 

49 PRINT- AT 33,253;"b"3AT 18,63"a"3AT 2; 
LAS"kKL" SAT 3517 5"mn"SAT 1S;123;"kl"3AT 16 
rhZ23° mm’ GAT Le;las"e "GAT I, 197" ie" HAT 4 
1B)" oo" FAT S83" sto” 

5@ RESTORE 6@: FOR M=1 TO 4: FOR N=l1 T 
O 3: READ F: BEEP .5;F: IF INKEY$=""" THE 
N NEXT N: READ F: BEEP 1,F: PAUSE 14: I] 
F INKEY$=""" THEN NEXT 1M 

60 DATA =12.=95=75=9) 052 5=95—49—4y9-5y 
-5;,;-5,-3,-2,-2, 2,;9,;-2,-3,;-2,3;3,;23;9,-5,0 
>~2,-4,-5,-4, -4,-5,-7, -5;-12; -7,; -395-18,- 
18,-12 

35 CLS 


16@ LET L1=18: LET L2=3 

118 LET W=@: LET WW=1 

128 PRINT AT L1,33"a"3AT L2,28;"b" 
134 GO TO 158 
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14@ PRINT INK 43AT L,C3"f"3AT Lt1,C3"c 
say Le2sC-1s"her’ vAY Les, C1 s"ad" AT L 
+4,C03"c": RETURN 

15@ LET L=16: LET C=9: GO SUB 14@ 

16@ LET L=1: LET C=22: GO SUB 14@ 

17@ LET T=1275 

18@ INK 2: FOR Y=@ TO 175 STEP 2: PLOT 
@,Y: DRAW 2,0: PLOT 253;Y: DRAW 2,;@: BEE 
P ,@@3,Y/73: NEXT Y: INK @ 

266 LET K1=CIN 64518<¢>255)+2XCIN 65822¢ 
PZ5DJTSKC IN GS2Z78G'259) 

205 INPUT “": LET BONUS=INT (€2@@XRND): 
PRINT #@;TAB 123;"BONUS:" ;BONUS 

218 LET K2=CIN 57342<>255)+2*KCIN 49158<¢ 
>255)+4XkCIN 32766<>255) 

215 LET D=@ 

220 IF Kl1>=4 THEN GO SUB 1808 

225 IF DB THEN GO TO 3882 

2328 IF K2>=4 THEN GO SUB 2088 

235 IF D THEN GO TO 3880 

24@ IF NOT K1 OR K1=3 THEN GO TO 272 

25@ IF K1l=1 AND L1>@ THEN PRINT AT L1; 


33" ": LET Li=Li-]: PRINT AT L1,33"8" 
26@ IF K1=2 AND L1<21 THEN PRINT AT LI 
eay” "2 LET Li=Ldeie PRINT AT L1,37*" 


27@ IF NOT K2 OR K2=3 THEN GO TO 388 
282 IF K2=1 AND L2>@ THEN PRINT AT L2; 


285" ": LET L2=L2-1: PRINT AT L2,283;"b" 
298 IF K2=2 AND L2<21 THEN PRINT AT L2 
,283;" "2 LET L2=L2+1: PRINT AT L2,283;"b" 


386 LET W=WtWW 

318 IF W<@ THEN LET W=@: LET WW=1] 

32@ IF WO18 THEN LET W=18: LET WW=-] 

33@ PRINT AT W5135" "SAT Wl, 133"kI"3A 
TO WH2,135"mn"5AT WtH3,133" “SAT 18-W; 17; 

"SAT 1S-W,173"kbLY SAT 2@-W,173"mn" SAT 

21-W,173" " 
e331 IF W<lS ANG RND>.S THEN LET Y=(2e- 
WJ*X8: PLOT 164;,;Y: DRAW -72,@: INVERSE 1: 


ol 
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PLOT 14,7: DRAW -72,@: INUERSE @: IF W 
+1=L1 THEN LET D=1: GO TO 30aa 

332 IF W<14 AND RND>.3 THEN LET Y=(W+2 
Jx8: PLOT 152,Y: DRAW 72,0: INUERSE 1: P 
LOT 152,Y: DRAW 72,8: INVERSE @: IF 19-W 
=L2 THEN LET D=2: GO TO 3000 

34@ LET T=T-1 

358 IF T<@ THEN GO TO 6829 

36@ INUERSE 1: INK 2 

37@ PLOT @,T: DRAW 2,0: PLOT 253,T: DRA 
W 2,0 

382 INUERSE @: INK @ 

398 GO TO 200 

1088 LET K1=K1-4 

1885 BEEP .@@5,2 

1018 LET X=209 

1828 IF L1=1 OR L1=2 OR L1=S THEN LET X 
=144 

1038 IF L1=3 OR L1=4 THEN LET X=136 
104@ IF L1=19-W OR L1=2@-W THEN LET X=1 
24 

1@5@ IF Ll=W+l OR Ll=W+2 THEN LET X=72 
1@6@ IF L1=16 OR L1=1? OR L1=2@ THEN LE 
T X=4@ 

1078 IF L1=18 OR L1=1S THEN LET X=32 
110@ LET Y=(21-L1)*6+4 

111@ PLOT 31,7: DRAW x,@ 

1128 INUERSE 1 

1138 PLOT 31,7: DRAW x,@ 

114@ INUERSE @ 

115@ IF L1=L2 AND X=2@@ THEN LET D=2 
116@ RETURN 

20@@ LET K2=K2-4 

20@5 BEEP .@05,8 

2018 LET X=200 

262@ IF L2=16 OR L2=19 OR L2=2@ THEN LE 
T X=144 

203@ IF L2=1? OR L2=18 THEN LET X=136 
2048 IF L2=W+1 OR L2=W+2 THEN LET X=104 
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265@ IF L2=19-W OR L2=2@-W THEN LET X=? 
2 

2668 IF L2=1 OR L2=4 OR L2=5 THEN LET X 
=4G 

2876 IF L2=2 OR L2=3 THEN LET X=32 

216@ LET Y=(21-L2)*8+4 

211@ PLOT 224,Y: DRAW -xX,@ 

212@ INVERSE 1 

2130 PLOT 224,Y: DRAW -xX,@ 

214@ INVERSE @ 

2156 IF L2=L1 AND X=2@@ THEN LET D=1 
2166 RETURN 

3800 IF L1=2] THEN LET LI=2@ 

3605 IF D=1 THEN LET S2=S2+T+BONUS 

3@1@ IF L2=21 THEN LET L2=28 

3615 IF D=2 THEN LET $1=S1+T+BONUS 

ee26 IF D=) TREN PRINT AT LigSs"e" SAT L 
tel 3o°Jo" 2 [TF Li-i>=@ THEN FOR N@eLI—-1 
TO @ STEP -12 BEEP .@S,21-N:? PRINT AT Ns 
33"q": FOR I=1l TO 25: NEXT I: PRINT AT N 
+33" "2 NEXT N 

3838 IF D=2 THEN PRINT AT L2;,283;"p" 5AT 
L2+t1,283"j0"2 IF L2-1>=@ THEN FOR N=LZ- 
i TO @ STEP =1: BEEP .@5,21=N 2 PRINT AT 
N,283"q": FOR IJ=1 TO 25: NEXT I: PRINT A 
TON; 283" ": NEXT N 

3848 RESTORE 384@: FOR N=1 TO 11: READE 
SP? BEEP Er2.Fe MEXT Ne DATA Weel 2ea75e= 
25 e251 25 bg =l2s a7 Sy7-Sy. 2597185. 750-10, 
ptew~l2s «Aoe~1loae , eg lSi) 2y-12 

30950 IF D-1 THEN LET 01=Di-1: IF Dl=@ T 
HEN GO TO 4880 

306@ IF O=2 THEN LET D2=02-1: IF D2=@ T 
HEN GO TO 488@ 

38665 CLS 

387@ PRINT AT 1@,73;"PLAYER 1"3AT 16;203;" 
PLAYER 2"3AT 12,;@3;"LIVES"5AT 14,@3;"SCORE 
SFAT 12,1BIDLSAT 12, 253DZsAT 145 1@=€S1>S 
SI3S13AT 14; 25=CS2>393) 3SZ 
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3086 FOR I=68 TO @ STEP ~.5: BEEP .983,1 
> NEXT I 

3@9@ GO TO 95 

4008 PRINT AT 14,123; INVERSE 13;"GAME OUE 

Re 

461@ FOR I=] TO 20@: NEXT I 

4626 CLS 

4036 PRINT “WINNER :"3 

484@ IF D=2 THEN PRINT “PLAYER 1": PRIN 

T 2 PRINT “SCORE =" 381 

4459 IF De] THEN PRINT “PLATTER 2°! PRIN 
T =? PRINT “SCORE :"3S2 

4068 FOR I=@ TO 68 STEP .5: BEEP .@@3,1: 
NEXT I 

46728 GO TO 18 

5868 RESTORE 518a 

5816 FOR N=USR "A" TO USR "Q"+7 

53@2@ READ 2: POKE N;2 

5@3@ NEXT N 

38048 RETURN 

5186 DATA BIN 8@8@019@8,BIN 80011108,BIN 

20001608,BIN @8@81111,BIN 98801000,BIN @ 

9601188,BIN @80181900,BIN @81181aa 

511@ DATA BIN @880188@8,BIN @0111800,BIN 

4061@682,BIN 11118000,BIN @801008@,BIN @ 

G110008,BIN 80181888,BIN 88181180 

S126 DATA 126,126; 126,126,126, 12651265 12 

6 

3138 DATA 126,126; 254, 254, 254, 254, 126,12 

6 

S148 DATA 1265 126, 12251275 1275 1275 126512 

6 

59156 DATA @,8,BIN @8011@@8,BIN 988111199, 
126; 126,126,126 

516@ DATA 66,62,63,63,63,BIN @0011111,@, 

Q 

51728 DATA @,8,BIN @@0611806,60,68,60,608,6 

y) 
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51388 DATA 6@,BIN 91111188, 252,252, 252,B1 

N 11111808,0,9 

3196 DATA @;,BIN 11181@11,BIN 18141818,BI1 

N 181019818,BIN 11181811,BIN 1188190198,BIN 
12181818,BIN 181801018 

5288 DATA BIN 84@800081,BIN 68800118, BIN 

220018000,BIN 88018088,BIN 88018888,BIN @ 

51G@80008,BIN B81 8808U,BIN BBlBguRue 

5216 DATA BIN 18@8@008,BIN @1180008,BIN 

20010008,BIN 8808018008,BIN 880019808,BIN @ 

2800198,BIN 88080108,BIN BBBU8188 

5224 DATA BIN @8011180,BIN @80011111,BIN 

44141111,;BIN @@141111,BIN @@111111,BIN @ 

2100088,BIN 88198000, 9 

5234 DATA BIN @811188@,BIN 11111@@8,BIN 
1111@18@,BIN 11118188,BIN 11111188,BIN @ 

4000108,BIN 89088108,¢a 

5248 DATA @,128,128,128,128,6,8,0 

5258 DATA 8,8,;BIN 80111119,8,8,8,BIN 800 
111@@,BIN 86111118 

5268 DATA @,4,@,BIN @1811801,255,BIN 818 

20008,8,0 

6080 PRINT AT 18,133 INUERSE 13;"SUNSET8" 

6014 FOR I=1 TO 266: NEXT I 

6626 CLS 

6636 LET dl=d1-1: IF dl=@ THEN LET d=1: 
GO TO 48868 

664@ LET d2=d2-1: IF d2=@ THEN LET d=2: 
GO TO 4888 

6856 GO TO 3872 
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Chapter 6 


Cribbage 


iS 


Description 


If you are a card-playing fanatic then you will love the 
opportunity to test your ability against a computer in this, the 
most skilful of games for two players. 

As the game progresses, it should become obvious that the 
computer is no easy adversary as the program is designed to 
detect many of the crafty tricks you may play for extra points and 
the computer also knows a few tricks of its own. So good luck, 
play fair and with a lot of practice you might just win a game— if 
you're lucky! 
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Hints on Entry 


Although the program is very long, there are no major areas 
which are likely to cause problems. The user-defined graphics, 
which are few and far between, are represented as usual by lower 
case letters. The major part of the program consists of the mathe- 
matical algorithms used to enable the computer to play an 
intelligent game, and a series of validation routines to make sure 
that you, the computer’s opponent, are abiding by the rules of the 
game. 

When the program has been entered, it should be saved on tape 
or microdrive in the normal way using: 


SAVE “CRIB” LINE 1 
or 
SAVE *#“M”";1;“CRIB” LINE 1 


The program has been written using a modular approach and 
consists of a large number of subroutines each with an associated 
REM statement. If after entering and running the program a 
particular facility does not operate, then it should be a simple task 
to locate and amend the error. 


Techniques 


The word technique is often used to describe the way in which a 
program has been constructed. A program which has been 
written using a good technique will be clear, easy to follow and 
will generally run faster than one which has been designed in a 
haphazard manner. 

One of the best techniques to employ in program writing is 
that known as modular programming, in which the program is 
built up using a series of blocks or modules. 


1) The program is divided into a series of modules by con- 
structing an algorithm or flow diagram such as that shown 
in Fig. 2. 

2) When a rough outline has been completed, each of the 
blocks can be coded into a subroutine to be used in the 
program. Each routine should contain at least one REM 
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DISPLAY 
CARDS 
EVALUATE 
PLAYER’S MOVE 


Fig. 2 


statement indicating the purpose of that section for future 
reference. 


As mentioned above, a program written in a logical and 
structured manner will operate more efficiently and will be far 
more rewarding to the programmer. 


Instructions 


When the game is loaded from tape or microdrive, it will run 
automatically. The cards will be cut to see who has first crib, and 
the computer will deal out the cards. 

No playing instructions are included at this point as it is 
assumed that the rules of the game and the modus operandi are 
understood. To make operation as easy and as fool-proof as 
possible, the user refers to his cards by number and if at any time 
a card cannot be played then the player types P to pass and the 
computer takes its turn. 
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Listing 
IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED . 


3 


1 LET RC=@: LET RP=@: LET GO=INT CRN 
DX2)+1: INK @: LET FL=@ 
2 LET N$=" 
LET W¢=" 


3 BOR I=1 Td 3 

4 LET N#=N$+N$ 

3 NES, J 

6 LET SCY=S2% LET SC2=1742 LET SPl=8: 
EET SP2Z=125 
LET SCOREP=@: LET SCOREC=@ 
RANDOM] 2E 

3 POKE 23658,8 

2 ies 

15 GO SUB 93398@ 

26 DIN CCS): DIM G$(8,3): DIN DF$l4,3): 
DIM ES$C4,;3)3: DIM PC8): DIN I$ €5,3): DIN 
F$(1,3): DIN AKC12,3): DIN H$C5;,;3): DIM 
B$(12,3): DIN P$C5;,3): DIM Q$(8,1): DIM 
1€1@3: DIM R$C8,1)3: DIM P$C5,3): DIN Cs 

{55:3 

21 LE? PSClj="s3s" 

23 GO SUB 486@ 

38 PRINT AT 1;233;"DEALING" 

31 PRINT AT 3,;24;3;"CARDS" 

32 GO SUB 3688 

33 IF GO’2<>INT (GO’2) THEN PRINT #13 

“PLATTERS ERIB™ 


ON 
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34 IF GO/’2=INT (GO72) THEN PRINT #13" 
COMPUTER? S CRIB" 

32 LET S=1? LET &=62 GO SUB SI3o 

36 LET Se?* LET F=]12: GO SUB S130: GO 
SUB 34aa 

37 FOR I=1 TO 6: LET ASCI)J=BS$CI+6): NE 
AT 1? LET CN=62 LET Cl=1: LET CZ=6: GO S 
UB 680a 

38 GO SUB 6180 

33 GO SUB 62282 

41 GO SUB 58aa 

42 LET X]=192: LET Yl=1@4: GO SUB 632a 

43 GO SUB 648a 

44 PRINT AT la2@l3" CONPUTER® FAT 20213" 
THINKING’ GAT 3.21 2°PLEASE WAIT"? GO SUB 
3566: FOR I=1 TO 6: LET A$CIJ=BSCI): NE 
XT I: GO SUB 88a 

4S PRINT AT 15,;213"ENTER CARD" 

46 PRINT AT 2;2@3;"TO BE PLACED" 

47 PRINT AT 33,213" - IN BOX " 

48 GO SUB 93564 

943 LET C=6: GO SUB 52aa 

38 LET MN=3 

5] LET @$=INKEY$: IF 2¢=""" THEN GO TO 
=p! 

S2 LET @=UAL 2¢: IF 2>6 OR 2<] THEN G 
0 TO S] 

53 LET C$(MNjJ=A$(Z+6) 

S44 IF C#(M3=CS(33 AND A=4 THEN .GO Td 
ul 

so PRINT AT 4522*€(M-S)42)3 INK ICZIiR 
$CZ)3AT 5, 22+0(M-3) 2) 5Q$(2Z): LET M=MNt] 

50 IF M<>S THEN GO TO Si 

of LET R=] 

3S FOR [=7 70 12 

66 IF ASCIJ<>C$(3) AND ASC1)<>C$(4) TH 
EN LET P#C(KJ=AS$(I): LET K=K+t1 

62 NEXT I 

63 GO SUB 53aa 


——— 7G 
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7@ FOR I=] TO 4: LET ASCIJ=P$CI): NEXT 

I 

66 LET Cl=1: LET C2=4: LET CN=4: GO SU 
B 6660: GO SUB 6186: GO SUB 62@@:: GO SU 


B 5880 

3@ INK @: PRINT AT 1,263" PRESS ENTER" 
3AT 2,203" TO CUT "SAT 3,;20;" THE C 
ARDS" 5AT 4,203" "SAT 5,263" 


“: GO SUB 3568 
S31 IF INKEY$="" THEN GO TO 91 

1@@ LET A=INT CRNDX4)+] 

11@ LET F¢¥C1I=S#CA) 

12@ LET A=INT CRNDX26)+1 

138 IF A“’2=INT CA’2) THEN GO TO 120 

14@ LET F¢C1,2 TO 3)=U$(A TO At1) 

15@ FOR I=1 TO 12 

166 IF BSCIJ=F¢C1) THEN GO TO 188 

172 NEXT I 

188 GO SUB 54a8@ 

185 LET X1=192: LET Y1=1@4: GO SUB 63aa 

189 LET Cl=1: LET C2=1: LET CN=1: LET A 
$ClJ=F$C1): GO SUB 6148: LET Y$=Q$C1): L 
ET 4€$=R$(1):? LET II=25: GO SUB 5@a@5 

13@ IF F$C1,2 TO 33="11" AND GO’2=INT C 
GO’Z2) THEN LET SOCREP=SCOREP+2: GO SUB 
4000 

131 IF F¢C1,;2 TO 33="11" AND GO720> INT 
(GO’2) THEN LET SOCREC=SCOREC+2: GO SUB 
4080 

132 GO SUB S56@@: GO SUB 5588: GO SUB 4] 
46: GO SUB 56@@: IF GOv2<>INT (€GO’2) THE 
N LET FL=1: GO TO 29@ 

133 GO SUB 56@@: GO SUB S5S5@@: LET Cl=1: 
LET C2=1: LET CN=1: LET A$(C13=F¢C(1): GO 
SUB 6106: LET Y$=Q$(1): LET @#=R¢$(1): L 
ET IIl=25: GO SUB 5@@5: LET X]1=192: LET Y 
1=184: GO SUB 63288 

134 FOR I=] TO 4: LET ASCIJ=P$CIJ: NEXT 

I 
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1AS LET €l=1? LET C2=42 LET CN=4 

196 GO SUB 6868: GO SUB 61@@: GO SUB 62 
86: GO SUB S8aa 

137 LET KX1=1922 LET Yl=164: GO SUB 63aa 

2606 FOR I=1 TO 4 

26] IF VAL CFS¥C1,2 TO 3)J>VUAL CPSCI;,2 T 
0 33) THEN NEXT I 

244 FOR J=S TO I+] STEP =] 

205 LET P#CJJ=P¢#CJ-1) 

207? NEXT J 

208 LET P$#CI)J=F¢#C1) 

216 LET I$(S)=F$(1) 

226 LET C$(S)=F$(1) 

238 GO SUB SS5a@a 

235 INK @ 

240 PRINT AT le2Z@3" PLAYERS” SAT 2; 2035" 
SCORE=" 

245 GO SUB 939562a 

256 FOR I=1 TO S: LET H$CIJ=P$CIJ: NEXT 

I: GO SUB 728aa 

255 INK @ 

26@ PRINT AT 2,273S 

27@ LET SCOREP=SCOREP+tS 

27S LET SPI=SCOREPXS 

288 GO SUB 40aa 

285 IF FL=1 THEN LET FL=@: GO TO 376 

23@ GO SUB SS5ae 

386 PRINT AT 1,283" COMPUTERS" 3;AT 2,26; 
" SCORE=" 

361 GO SUB 56@@: LET Cl=1: LET C2=1: LE 
T CN=1: LET A$C1)=F$C1): GO SUB 6160: LE 
T Y$=Q$C1): LET 2$=R$(1): LET I]=25: GO 
SUB 5@@5: LET X1=1]1932: LET Y1=104: GO SUB 

6388 

31@ GO SUB 95628 

311 GO SUB 538a 

SiZ FOR l=] TO 4 

313 LET ASCIJ=I$FC1) 

314 NEXT I 


315 
316 
BB: 
328 
I 
32] 
3L2z 
3) J 
323 
324 
325 
326 
327 
328 
332 
34@ 
358 
368 
378 
3275 
376 
EN 
37? 
1213 
388 
CORE 
3340 
a) 
418 
422 
436 
446 
458 
BB: 
468 
478 
488 
438 
588 
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LET €l=13 LET Gast: LET GAR4 
GO SUB 6406: GO SUB 6186: GO SUB 62 
GO SUB S8aa 


FOR I=] TO 5S: LET H#CI3J=I$C1): NEXT 


FOR J=1 TO 4 

IF VAL FE¥C1,2 TO 3)>VUAL CHECI,2 TO 
THEN NEAT I 

POR J=5 TO itl STEP <1 

LET H$CJJ=H$CJ-1) 

NEXT J 

LET H$¢CIJ=FE¢(1) 

GO SUB 7886 

INK @ 

PRINT AT 2,273S 

LET SCOREC=SCOREC+S 

LET SC]=SCORECXS 

GO SUB 488a 

GO SUB 55@@ 

IF FL=1 THEN GO TO 193 

GO SUB 5586: IF GO72<>INT (G0O72) TH 
PRINT AT 1,213"PLAYER?’S" 

IF GOv2=INT (GO72) THEN PRINT AT 1] 
"COMPUTER? S" 

PRINT AT 2,213;"CRIBBAGE' 3AT 3,215"S 
~ BI 

GO SUB 93566 

GO SUB 5386 

FOR I=] TO 4 

LET ASCIIJ=CECI) 

NEXT I 

LET €l=12 LET €2=42 LET EN=4 

GO SUB 6@@@: GO SUB 61@@: GO SUB 62 
GO SUB S6aG 

FOR I=1 TO 5 

LET BEC I3J=C$CI) 

NEXT I 

LET S=]: LET F=5: GO SUB 9155 

FOR I=] TO 5 


63 
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518 LET H$C(I}=AS(1) 
528 NEXT I 
532 GO SUB 7aaa 
S48 PRINT AT 3;273S 
55@ IF GO/2=INT (GO’2) THEN LET SCOREC 
=SCOREC+tS: LET SC1=SCORECXS: GO TO 578 
56@ LET SCOREP=SCOREP+S: LET SP1=SCOREP 
x5 
578 GO SUB 4aa0 
588 LET GO=GOrl 
798 CLS 
822 GO TO 29 
998 STOP 
4@Q@ REM XXSCORE BOARDKX 
4@81 LET SP1=SCOREPXS 
4@@2 LET SC1=SCORECXS 
4883 INK @ 
4@1@ FOR J=@ TO ? 
4@2@ PRINT AT J;83" 
4@3@ NEXT J 
4832 IF SCOREC>=61 AND RC=1 THEN LET 2¢ 
="COMPUTER ": GO TO 83a9 
4834 IF SCOREP>=61 AND RP=1 THEN LET 2¢ 
="PLAYER": GO TO 8322 
4@35 GO SUB 352g 
4@36 INK @ 
4837 IF SCOREP>6@ THEN LET SCOREP=SCORE 
P-6@: LET RP=1: LET SP1=SCOREPXS: LET SP 
2= 125 
4038 IF SCOREC>6@ THEN LET SCOREC=SCORE 
C-6@: LET RC=1: LET SC1=SCORECXS: LET SC 
2=170 
4841 IF SCOREC>3@ THEN LET SC2=159: LET 
— SC1=C15@-C (SCOREC-313)*5)3 
4a42 IF SCOREP>3@ THEN LET SP2=136: LET 
SP1=(15@-( (SCOREP-31)*5)) 
4@5@ PLOT SC1,SC2: PLOT SC1-1,SC2+1: PLO 
T SC1,SC2+t1: PLOT SC1+1,SC2+1: PLOT SC1, 
SC2+2: PLOT SC1,SC2+3 


-_ ae oa . . 
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4968 PLOT SP1,SP2: PLOT SP1-1,SP2-1: PLO 
T SP1,SP2-1: PLOT SP1+1,SP2-1: PLOT SP1, 
SP2-2: PLOT SP1,SP2-3 

487@ RETURN 

41@@ REM XPLAY ROUTINEX 

41@1 LET PO=GO+1: LET PASS=@: LET CP=@: 

LET TCP=@: LET TOTAL=@ 

412 INK B 

411@ FOR I=1 TO 4 

4128 LET D$C1J=P$C(1) 

413@ LET E$CI)=1¢CI) 

414@ NEXT I 

415@ PRINT AT 1;2@;" PLAY FOR " 

416@ PRINT AT 2,2@3;" POINTS." 


4161 PRIN] AT 33203" PRESS ENTER® 


4162 PRINT AT 4,263" TO CONTINUE" 
94163 GO SUB 356¢ 


4164 LET @$=INKEY$ 

9165 IF @¢="" THEN GO TO 4164 

4188 IF PO”“2<>CINT C€PO72)) THEN GO SUB 
4588 

Sel IF TOTAL=31.THEN LET TOTAL=@: LET 
PASS=@: LET CP=@: GO SUB 56@@: GO TO 418 
8 

4182 IF PASS=2 THEN LET SCOREP=SCOREP+t1 
> GO SUB 4466: GO SUB 56@@: LET TOTAL=@: 
LET CP=@: LET PASS=@: GO TO 4188 

4183 IF TCP=8 THEN GO TO 413@ 

4189 IF POZ2={NT €PO72) THEN GO SUB 46u 
7) 

4186 IF TOTAL=31 THEN LET TOTAL=@: LET 

PASS=@: LET CP=@: GO SUB 5688: GO TO 418 


ar JF PASS=2 THEN LET SCOREC=SCOREC+T] 
> GO SUB 4886: GO SUB S6@@: LET TOTAL=@: 
LET CP=@: LET PASS=@ 

4188 IF TCP<8 THEN GO TO 4188 

4136 IF PO“2Z=INT €PO7Z) THEN LET SCOREP 
=SCOREP+1: GO SUB 4880 

4182 IF FOZZ0Q INT CPO42Z) THEN LET SCORE 
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C=SCORECt+1: GO SUB 488d 

42068 RETURN 

45@@ REM XPLAYERS GOx 

4561 GO SUB S5@@: INK @ 

4582 PRINT AT 1;,;2@3;" YOUR PLAY:" 

4583 GO SUB 956@ 

4584 FOR I=1 TO 4: LET ASCIJ=D$C1): NEXT 
IT: LET Cl=1: LET C2=4: GO SUB 6188 

4528 FOR I=1 TO 4 

4525 IF D¢CIJ="999" THEN GO TO 455@ 

4526 IF Q$CIJ="f" OR Q$CIJ="d" THEN INK 
2 : 

4538 PRINT AT 3, (026+C2kI))3Q$CI;1) 

954@ PRINT AT 4; 026+C2XIJISR$CI) 

4541 INK @ 

4545 PRINT AT 5; (20+C2*1)33 FLASH 1313 F 

LASH @ 

455@ NEXT I 

4551 PAUSE @ 

4552 LET Y$=INKEY$: IF Y#="P" THEN GO T 

0 4554 

9553 IF Y¢$="" OR CODE CY#)>5? THEN GO T 

0 4552 

4554 IF Y$="P" THEN LET PO=PO+t1: LET PA 

SS=PASS+1:? RETURN 

4555 LET Y=VAL CY#): IF Y>4 THEN GO TO 

4552 

4556 IF D¢CYJ="3999" THEN GO TO 4552 

4558 LET UL=VUAL ASCY,2 TO 3): IF VULOI1@ T 

HEN LET VUL=1@ 

4553 IF TOTALtUL>31 THEN GO TO 455] 

4561 LET TOTAL=TOTAL+UL 

4562 LET PCCP+1)=UL 

43563 LET PO=POrFl 

4565 ‘LEY CP=CPrl 

4078 LET TCP=TCPrl 

4571 LET G¢(CP)=DEC(7T) 

4586 LET D¢(YJ="999" 

4561 FUR [=] 70 €P 


4582 LET ASCIJ=GECI) 
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4583 NEXT I 

4584 GO SUB 56aB 

4582 LET Cl=]: LET C2=CP: LET CN=CP: GO 
SUB 6800 

4586 GO SUB 61288 


4587 GO SUB 629a 

4588 GO SUB 5888 

4598 GO SUB 438a 

45393 RETURN 

46@@ REM XCOMPUTERS GOx 

4605 FOR I=] TO 4: LET ASCIJ=ESC I): NEXT 
I: LET Cl=1: LET C2=4: GO SUB 618@ 

461@ GO SUB 55@8: INK @ 

4620 PRINT AT 1,2@3;" COMPUTER?’S " 

4638 PRINT AT 2,263" PLAY:" 

4646 PRINT AT 3,283" PLEASE WAIT" 

4658 GO SUB 356@ 

4664 FOR Y=1 TO 4 

4678 LET ULSUAL CES#C(Y,2 TO 3)) 

4671] IF UL=393 THEN GO TO 4694 


94672 IF UL>1@ THEN. LET VUL=1@8 
4688 IF TOTAL+UL=15 OR TOTAL+UL=31 THEN 


GO TO 475@ 
4681 IF CP>=1 THEN IF UL=PCCP3 AND TOTA 
LTUL<=21 THEN 6&9 10 4758 
469@ NEXT Y 

4708 FOR T=4 TO 1 STEP —1 

4712 IF E¢CYJ="9399" THEN GO TO 4726 
$711 LET UL=UAL CESCY,;2 TO 3)) 

4712 IF UL>1@ THEN LET UL=1@ 
4715 IF ToTALt¥L<=31 THEN GO TO 475@ 
472@ NEXT Y 


4749 LET PO=POt]s LET PASS=PASS+#1: RETUR 
N 

4756 REM XPLAY CARDX 

4725 LET PCOPPLI=UL 

4766 LET CP=CP+] 

47706 LET GEC(CPI=ESC(T) 

$788 LET ESCyjJ="S99" 

4796 LET TCP=TCPt1: LET TOTAL=TOTAL+UL 
f7ok Wel PoOSror 

4735 FOR I=] 10 CP 
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4736 LET A$(1)=G$(1) 

4797 NEXT 1! 

47398 GO SUB S626 

4799 LET Cl=1: LET C2=CP: LET CN=CP 
4888 GO SUB 6aa@ 

4818 GO SUB 6188 

4828 GO SUB 6208 

4838 GO SLB Sea 

4835 GO SUB 43aa 

4848 RETURN 

4988 REM *SCORE EVALUATION* 

4901 LET SPG=@: LET TT=@: LET PASS=@ 
4982 IF TOTAL=15 OR TOTAL=31 THEN LET S 
PG=2 

4984 IF CP<=2 THEN GO TO 4942 

4986 FOR I=1 TO CP 

4908 LET PCIJ=VAL (G$(I,2 TO 3)3 
4318 NEXT | 


4928 LET MAX=PC(CP): LET MIN=PC(CP) 
4322 FOR I=1 TO CP-2 


4923 LET TT=@: LET MAX=P(CP): LET MIN=PC 
CP) 

4324 FOR J=CP TO I STEP -1 

4926 IF P(J]>MAX THEN LET MAX=PCJ) 

4928 IF P(JJ<MIN THEN LET MIN=PCJ) 

4938 LET TT=TT+P(J) 

4932 NEXT J 

4934 LET AUI=(MAX+MIN)72 


aase TE AUYZaue“ANbP AAR N=cP-1 THEN L 
ET SPG=SPG+(CP+1)-I: GO TO 4942 

4948 NEXT I 

4942 IF CP>=3 THEN IF PC(CPJ=PC(CP-1) AND 
PCCPJ=PC(CP-2) THEN LET SPG=SPG+6: GO T 
9 4988 

4346 IF CP>=2 THEN IF PCCPJ=PC(CP-1) THE 
N LET SPG=SPG+2 

4988 IF PO’2=INT (PO72) THEN LET SCOREP 
=SCOREP+SPG 

4982 IF PO”’2<>INT (P02) THEN LET SCORE 
C=SCOREC+SPG 
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2984 GO SUB 48aa 

4986 RETURN 

S466 REM XXDRAW SINGLE CARDXx 

5601 LET JJ=10: LET II]=(3xCN)-2: LET Y$= 
QO$¢(C2): LET 2$=R$(CZ) 

58665 IF Y¢="c" OR Y¢="d" THEN INK @ 
5@@6 IF Y$="f" OR Y$="9" THEN INK 2 
5414 PRINT AT JJ, 113;2¢ 

5@2@ PRINT AT JJ-1,113;Y$ 

5638 PRINT AT JjJ+8;, lI +432 

5646 PRINT AT JJ+9,11+457¢ 

e8o@ [Ff 26="J" THEN FRINT AT JJt3; [I+33 
CHR¢ 1333AT JJ+4, 1I+135CHR¢ 1363;CHR$ 133; 
AT JJt+t5S,1TI+13CHR# 1343CHRE 14@;3CHRE 137 
5666 IF 2$="Q" THEN PRINT AT JJ+3, 11413 
CHRE 1373CHR$ 1313CHR¢ 1343AT Jjt4, 11413 
CHR$ 138j;CHR$ 1323;CHR# 1333AT JJ+5, 7113 
CHR$ 134;CHR# 14@3;CHR$ 139;AT JJ+6,11+3; 
CHR¢ 123 | 

5276 IF €e=°K" THEN PRINT AT dJ+3, 11413 
CHR$ 13835CHR$ 132;CHRS 13@3;AT JjJ+4,11+13 
CHR$ 1393CHR$ 1343AT JJ+5,]TI+153CHR$ 1383 


"SCHR 134 
5680 IF 2¢$="h" OR 2$="3" OR 2@$="8" THEN 
PRINT AT JJt1, 7T1I+137$3" "“3Y#3AT Jjt+3, 11 
tlie. MxKSrAlT JS, TIPU SISa” 'STSRAT A 
Jey TLL SYSs" " sys 


5681 IF 2¢$="h" THEN PRINT AT JJt+2, 11423 
Y#3AT Jj+6, 11 +237$ 
. IF 2$="3" THEN PRINT AT JJ+4, 11123 


56398 IF 2$="6" OR 2¢$="7" THEN PRINT AT 
JJdtls TLALITSS” 8 STSSAT ott LTFL SSS? 3 
Y$jSAT JJt7, TI+137$3" "351s 

3@391 IF 2$="7" THEN PRINT AT JJI+4,1I+23 
Y$¢ 

51@@ IF 2¢="5" OR Z2$="4" THEN PRINT AT 
JIFZ5 LIER SVYS3" "SYSSZAT JIG, TITL TSR" 5 
Y¢ 


314] JE 2¢="5" THEN PRINT AT tJ+45 1Iwes 
T$ 
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5118 IF 2¢="2" OR @¢$="3" THEN PRINT AT 
SIZ, 1 ES2sTSsayT JJe6is II+2;7¢ 

Slill IF 2@¢="3" OR 2¢="1" THEN PRINT AT 
JJ+4, T1+237¢ 

5126 RETURN 

S206 REM XXNUMBER CARDSxXx 

5216 FOR I=1 TOC 

5228 PRINT AT 21;,C03XCI-1))+13 FLASH 1313 
FLASH @ 

5238 NEXT I 

5248 RETURN 

5388 REM XXCLEAR CARDS*x 

531@ FOR J=8 TO 2] 

3326 PRINT AT J;@3" 


533@ NEXT J 

534@ RETURN 

5482 REM xxCLEAR CRIB 
5418 FOR J=8 79 21 

5428 PRINT AT J;213" 
543@ NEXT J 

544@ RETURN 

55@@ REM XXCLEAR REPORTX* 
551@ FOR J=1 TO 6 

552@ PRINT AT J,283" 
553@ NEXT J 

554@ GO SUB 3564 


* 5556 RETURN 


5648 REM XCLEAR BOTTOMxX 

3618 PRINT AT 8;,;983N$¢ 

5626 RETURN 

6868 REM XxXDRAW CARDS*x 

601@ FOR I=24 TO 24xCN STEP 24 

6426 PLOT 1,104 

6638 DRAW -22,@: DRAW -2,~-2: DRAW @,-85: 
DRAW 2,-2: DRAW 22,2 

6848 NEXT I] 


625@ DRAW 38,@: ORAW 2,2: DRAW @,8>? DRA 
WwW —-2,2: DRAW -38,¢ 


6668 RETURN 
618@ REM xxPLAYTERS CARDSXx 
6110 FOR I=C1 FO C2 
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6120 IF AS(I,1)="H" THEN LET as(I)="F": 
LET ICIJ=2 

6138 IF ASC(I,1)="C" THEN LET Q¢(I)="c": 
LET ICI)=@ 

614@ IF A$CI,1)="D" THEN LET Q$C(IJ="9": 
LET ICI)=2 

6158 IF A$CI,1)="S" THEN LET Q$C(I)="d": 
LET ICI}=@ 

6151 IF A$(I,2)="9" THEN LET R$CIJ=ASCI 
.3): GO TO 6160 ; 
6152 IF A$CI;3)="8" THEN LET R$CI)="h" 
6153 IF A$(I,3)="1" THEN LET R#C1)="J" 
6154 IF A$CI,3)="2" THEN LET R$CIJ="Q" 
6155 IF A$CI,3)="3" THEN LET R$C1J="K" 
6162 NEXT I 

6178 RETURN 

62@@ REM XXCOMPLETE CARDS*x 

621@ FOR I=1 TO CN 

622@ INK ICI) 


6238 PRINT AT 18; (3XCI-1))+15R$C1) 
6246 PRINT AT 9; C3kCI-1)3+15;Q$C1) 


6258 NEAT I] 

6268 RETURN 

63@6 REM XxXCARD OUTLINEXxX 

6385 INK @ 

6318 PLOT X1,71 

632@ DRAW 54,0: DRAW 2,-2: DRAW @,-85: D 
RAW -2,-2: DRAW -54,@: DRAW -2,2: DRAW @ 
»85: DRAW 2,2 

6338 RETURN 

64@@ REM XXSHADE PACKXxX 

641@ PRINT AT 33,243" jbbbbbk" 

6426 FOR J=18 TO 18 

643@ PRINT AT J;243;"bbbbbbb" 

644@ NEAT J 


6458 PRINT AT 19,24;"LLLLLLL" 
6433 RETURN 


786@ REM XEVALUATORX 
7061 LET S=@ 
7005 LET SP=2 


71 
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7@1@ FOR X=1 TOS 

7@11 LET CCX)J=UAL CHE$C(X,2 TO 33) 

7012 NEXT X 

7@15 GO TO 7720 

?@56 REM xBONUS 1x 

7@51 FOR X=1 TO 5 

7@52 IF H$(X)<>F$(1) AND H$(X,2 TO 3)="1 
1" AND H$CX,13=F$C1,1) THEN LET S=Stl 
7@53 IF CCXJ>1@ AND CCX)<14 THEN LET CC 
X)=18 

2@54 NEXT X 

71@@ REM *PAIRSX 

7118 FOR X=1 TO 4 

712@ FOR Y=X+1 TO 5 

7138 IF H$CX,2 TO 3)=H$C(Y,;2 TO 3) THEN 
LET SP=SP+2 

714@ NEXT Y: NEXT X 

715@ LET S=S+SP 

7488 REM *FLUSHX 

74@5 LET SF=@ 

741@ IF H$C1,1)<>F$C(1,1) THEN LET Y$=H$ 
(1,213 LET #e=1 

7411 IF H$C1,1)=F$C1,;1) THEN LET Y#=Hs( 
2,1): LET XxX=@ 

7412 FOR 2=2 TO 5 

2413 IF H$CZ,1)=Y$ AND H$(Z,1)<>F$C151) 
THEN LET XX=XX+1 

7414 NEXT 2 

7415 IF XX=4 THEN LET SF=4: GO TO 742a 
7418 IF H$C1,1)=H$C2,1) AND H$(1,1)=H¢(3 
.1) AND H$C1,1)=H$C4,1) AND H$(1,1)=H$(5 
11) THEN LET S=S+5 

7428 LET S=S+SF 

7588 REM 2-CARD 15x 

7518 FOR X=1 TO 4 

7528 FOR Y=Xt+1 TO 5 

7558 IF CCX)+C(Y)=15 THEN LET S=St2 
7568 NEXT Y 

7578 NEXT X 

7688 REM *3-CARD 15x 
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7616 FOR X=1 TO 3 

7626 FOR Y=X+1 TO 4 

7636 FOR 2=Y+1 TO 5 

7656 IF CCXI+CCVI+CCZI=15 THEN LET S=St 

ez 

7668 NEXT 2: NEXT Y: NEXT X 

7675 IF CC13+CC2)3+CC4)+C(05)=15 THEN LET 
S=St2 

7676 IF CC2)+CC3)+CC4I)+CCSJ=15 THEN LET 
S=St2 

7677 IF CC13+CC23+C03)+C0S)I=15 THEN LET 
S=StZ 

7678 IF COLIFTCCZITCCSJ#Cl(4IJ=15 THEN LET 
S=St2 

porS |r CCLIFECZI+ECSI+EC4IFECSIJZBlS THEN 
LET S=St+2 

7688 GO TO 7386 

7706 IF CC1)J+1=CC2) AND CC2)+1=CC3) AND 

CC33+1=CC4) AND CC4)+1=C(S5) THEN LET S= 

StS: GO TO 7748 

770] LET R4=G 

72762 FOR W=l1 TO 2 

727063 FOR X=Wt+] TO 3 

276% FOR Y=xtl TO 4 

72765 FOR 2=Y+1 TO S 

72766 IF CCWJ=CCXI-1 AND CCXI=CCYI-1 AND 

CCYJ=CC2ZI-1 THEN LET R4=R4+4 

2787 NEXT @: NEXT Y: NEXT X: NEXT W 

727068 IF R4<>@ THEN LET S=S+tR4: GO TO 7? 

48 

7716 FOR X=1 TO 3 

2720 FOR Y=X+1 TO 4 

727736 FOR 2=Y+1] TO 5S 

7746 IF CCYJ-CCXI=1 AND CCZI-CCYJ=1 THEN 
LET S=S+3 

2747 NEXT 2: NEXT Y: NEXT X 

72748 GO TO 7@5e 

7366 IF S>MAX THEN LET MAX=S: LET Nl1=T: 
LET N2=J: LET N3=K: LET N4=L 

723392 RETURN 
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B@BQ REM *HAND SELECTION* 

8801 LET H$(S)="999" 

g@85 LET MAX= 

3810 FOR I=1 TO 3 

8828 FOR J=I+1 TO 4 

e838 FOR K=J+1 TO 5 

824@ FOR L=Ktl TO 6 

8@5@ LET H€(1)=A$C(I) 

886G LET H$(2)=AS(J) 

3872 LET H$(3)=AS(K) 

g@8@ LET H$(4)=AS(L) 

3285 GO SUB 7aaa 

g@9@ NEXT L: NEXT K: NEXT J: NEXT I 
g@95 IF MAX=@ THEN LET Nl=1: LET N2=2: 

LET N3=3: LET N4=4 

B1@8 LET I$C1J=A$(N1J: LET I$(2)=AS(NZ): 
LET I1$(3)=A$(N3): LET I1$(4)=AS(N4) 

8118 LET K=l 

8111 FOR I=1 TO 6 

8112 FOR J=1 TO 4 

8114 IF A$CIJ=I$(4J) THEN GO TO 8118 
8115 NEXT J 

8116 LET C$(K)J=A$(I): LET K=Ktl 

gl18 NEXT 1 

8128 RETURN 

8388 REM XkGAME OUERXx 

8318 FOR I=1 TO 4 

8328 FOR J=@ TO 7 

8338 BORDER J 

834@ NEXT J 

g35@ NEXT I 

3362 GO SUB 552g 

g37@ PRINT AT 1,21;"GAME QUER" 

8382 PRINT AT 2,213z¢ 

g392 PRINT AT 3;21;"WINS." 

8418 PRINT AT 4;21;"PRESS EN ER" 


. 
8428 PRINT AT 5,;2133"TO CONTIN 
8438 GO SUB 356a 

8448 LET Z2$=INKEY$ 

g45@ IF Z$="" THEN GO TO 844@ 
8468 RUN 

388@ REN xCaRpS* 

9018 LET S¢="HCDS" 
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9220 LET U¢="91820384858687088918111213" 
S038 FOR l=] TO 12 

984@ LET A=INT CRNDX4)+1 

9858 LET A$CI;1J=S#(A) 

9868 LET A=INT CRNDX26)+1 

9978 IF A’2=INT CA72)] THEN GO TO 3868 
9880 LET A$(I,2 TO 3)=US(A TO ATI) 
9$a9@ FOR J=1 79 1-1 

3108 IF Ag(JJ=ASCI) THEN GO TO 9842 
3118 NEAT J 

3128 NEXT I] 

9125 RETURN 

8132 FOR [#8 {0 F 

914@ LET BSC I)=AS$ CI) 

315@ NEXT 1] 

S155 FOR J=S TO F 

316@ LET MIN=33 

3170 FOR I=S TO F 

9188 IF VAL CB¢CI,2 TO 3))<MIN THEN GO 
SUB 93386 

3138 NEXT I 

9206 LET A$S(JI=BSCK) 


S205 LET BS(K.2 TO sj="SR" 
9218 NEXT J 


3226 RETURN 

9308 LET MIN=VAL (B¢CI1,2 TO 333) 

9318 LET K=I 

9328 RETURN 

3468 REM XXTEMPORARY TRANSFERXxX 

9416 FOR I=1 TO 12 

9428 LET BSCII=ASCI) 

3438 NEXT I 

94428 RETURN 

95@@ REN XCRIB-BOARDX 

3516 FOR J=] TO 34 

9526 PLOT IS, 165? 

Sy (332 PLOT DS. 129 

3538 NEXT I 

3546 PLOT 6,147 

355@ PLOT 8,175: DRAW 156,@: DRAW @,-55: 
DRAW -156,@: DRAW @,55 

93566 PLOT 168,175: DRAW 95,4: DRAW @,-55 
DRAW -935,@: DRAW @,55 

93699 RETURN 


PLOT [X5,155: PLOT [x 
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3988 
8316 
so28 
939368 
2535 
S536 
3342 
3956 
9968 
3978 
398¢ 
3936 
3391] 
sae 
Zz 

se a 
8 

3334 
3335 
93356 
a3? 
33359 


REM XUDG? Sx 
FOR I=USR "A" TO USR "M"+? 


READ A 

POKE I,A 

NEXT I 

RETURN 

DATA @,40,0,4,0,0,98,8 

DATA 176,85; 178,85, 170,85,178,85 
DATA @,56,56;16;214, 254, 214; 16 

DATA @; 16,56, 124,254, 254,214; 16 
DATA 17@,17@;85;,85,17@,178,85;85 
DATA @, 168,254, 254, 124, 124,56; 16 
DATA @,16;,56,; 124,254, 254, 124,16 
DATA 152, 164; 164, 164, 164, 164, 164,15 
DATA 128,128,128,128,128,128,128,12 
DATA 42,85, 178,85,178,85,178,85 
DATA 169,84, 178,85; 178,85, 178,85 
DATA 178,85, 178,85; 178,85; 178,21 
DATA 17@6;85;17@;85;,178;85,1708,85 

IF C$C2ZJ=C$(37 AND CH#E3) <>” * THE 


N GO JO 51 


Chapter 7 


OXO 


Description 


The game of noughts and crosses is a very old one suitable for two 
players, and learning how to play it is relatively simple. In this 
version, the two players involved are you and the computer, and 
you each have a symbol—either a nought (0) or a cross (X). You 
each take turns at placing your symbol in one of the nine squares 
on a3 X 3 grid, trying to forma straight line of your symbol either 
horizontally, vertically or diagonally. 

The game ends when one player completes the row of symbols, 
in which case that player is the winner, or when all the squares 
are occupied but with no line of symbols. In the latter case, the 
game is drawn. 
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Hints on Entry 


Care must be taken when entering lines 300-440 and with the 
subroutine starting at line 1700. These lines form the brain of the 
program. 

In lines 300-440, the routine which the computer uses to decide 
to allow the machine to have the first move is defined, and the 
subroutine is where the computer discovers if there is the possi- 
bility of obtaining or blocking a winning line. Therefore a 
mistake in either of these sections could lead to ridiculous moves, 
with the computer selecting or permitting you to occupy squares 
which have already been occupied. 

When you have entered the program, save it on tape or micro- 
drive with the command: 


SAVE “0X0” LINE 1 
or 


SAVE #M”’;1;0X0” LINE 1 


Techniques 


On occasions we may wish to print blocks of colour onto the 
screen very quickly. This can be achieved by poking directly into 
the memory locations reserved for the display file. 

Unlike most computers, the Sinclair Spectrum does not employ 
a simple block of memory through which it is possible to poke 
characters directly onto the screen, however there is a block 
reserved for the screen attributes (colours, flash status, bright 
status, etc.) and it is possible to poke values directly into this 
portion of memory, producing some interesting effects on the 
screen. 


Example 


10 CLS 
20 FORI=1TO 100 

30 LET X = INT(RND*8) 
40 LET Y = INT(RND*768) 
50 POKE 22528+Y,X*8 

60 NEXTI 
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This program produces squares of random colour, at random 
positions on the screen. The value of X gives the colour and Y the 
number representing the position on the screen. The area of 
memory reserved for information concerning these attributes 
commences at 22528, and therefore by adding the value of Y to 
this we obtain the memory location representing the appropriate 
screen location. 

If we need to put a block of colour on the screen at a particular 
location (say X,Y), then we must first calculate the appropriate 
memory location representing the screen position. This is 
achieved by using the formula: 


POSITION = 22528 + X + (Y*32) 


Then we can place the block of colour at this position by using 
POKE POSITION, C where C is eight times the respective colour 
number required. 


Instructions 


When the program is executed, a brief résumé of the object of 
noughts and crosses is displayed on the screen before you are . 
given the choice of having the first move or allowing the 
computer to go first. If you decide to go first, you then have to 
select the level of the play with level one being for novices and 
level five for experts. If you allow the computer to go first then it 
will play to win. 

Your symbol is the 0, with the computer playing X. When the 
computer prompts you to take your turn, press the key corres- 
ponding to the number in the square which you wish to occupy. 
Your symbol will then appear and the Spectrum will take its 
move. 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 
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1 POKE 23658,8 
5 DIN B8{9): LET Aee@: CET DRAW=O 
6 BORDER 1 
18 GO SUB 1188 
1S PRINT = PRINT =: INK @ 
2@ PRINT "THE OBJECT OF THIS GAME IS T 
O BETHE FIRST TO OBTAIN A ROW OF SYMB 
OLS ON THE 383 GRID," 
21. PRINT 
25 PRINT "YOU HAVE THE CHOICE OF GOING 
FIRST OR ALLOWING THE COMPUTER TO H 
AVE THE FIRST MOVE." 


26 PRINT 
3@ PRINT “INDICATE WHICH SQUARE YOU WI 
SH TO OCCUPY BY PRESSING THE APPR 


OPRIATE KEY IN THE RANGE g TU Ss,” 

31 PRINT : PRINT TAB (3)32 FLASH 12 PR 
INT "PRESS ANY KEY": FLASH @ 

32 IF INKEYS#="" THEN GO TO 32 

33 ‘ELS 

34 GO SUB 11@@: INK @ 

35 PRINT = PRINT = PRINT “YOU ALSO HAV 
& A CHOICE OF FIVE LEVELS OF PLAT,” 

36 PRINT =: PRINT “LEVEL 1 IS FOR NOVIC 
ES AND LEVELS IS FOR EXPERTS; BUT BE WAR 
NED, IF YOU LET THE COMPUTER GO FIRSTIT W 
ILL. PLAY TO wing?” 

37 PRINT AT 21.93°"3* PLASH 1? PRINT * 
PRESS ANY KEY" 3: FLASH @ 

38 IF INKEY$="" THEN GO TO 38 

39 ELS 

44 GO SUB 1144 

43 INK @: PRINT 

3@ PRINT " DO YOU WANT TO GO FIRST? CY 
7N)" 

55 PAUSE 10: LET F#=INKEY$: IF FS="" T 
HEN GO TO 55 

56 IF F$<>"Y" AND F¢<>"N" THEN GO TO 
SD 


6@ IF FS="N" THEN GO TO 65 
Gi PRINT * PRINT " ENTER LEVEL C1-EAST 
TO S~-HARDIJ" 
62 LET L$=INKEY$: IF CODE C(L#)<43 OR C 
ODE CL#3>53 THEN GO TO 62 
63 LET L=,S5+UAL C(L$)/71@ 
65 PRINT AT 115,33" YOU ARE PLAYING NOU 
GHTS" 
66 LET X=12: LET Y=14 : GO SUB 13089 
67 INK @: PRINT AT 17;,13"THE COMPUTER 
IS PLAYING CROSSES" 
66 LET A=16: LET T=14: GO SUB iza@e 
7@ PAUSE 1: PAUSE 280 
75 CLS : GO SUB 118@: GO SUB 1880 
8@ FOR I=1 TO 5 
85 LET 4=4+3%I]> LET Y=3: GO SUB 13808 
3@ LET Y=25: GO SUB 1288 
35 NEXT I 
166 IF FS="N" THEN GO TO 3868 
161 INK @ 
1@5 GO SUB 20a28 
125 LET X=19: LET Y=3: INK 7: GO SUB 13 
@5: INK @ 
135 IF S<>S THEN LET S=5: GO TO 145 
194@ LET S=1+2x*INT CS*RNDJ: IF S=5S THEN 
GO TO 140 
142 PAUSE 1: PAUSE Se 
145 GO SUB 218@: GO SUB 1480: GO SUB 12 
@@: LET *=13: LET Y=25: INK 27: GO SUB 12 
@5: INK @: LET BCS)=2 
15@ FOR A=1 TO 3 
155 GO SUB 28a@ 
166 LET X=19-3xA: LET Y=3: INK ?: GO SU 
B 13@5:: INK @ 
177? GO SUB 15@@: IF T=1 THEN GO TO 198 
7) 
19@ LET K=2: GO SUB 1788 
195 IF S<>@ THEN GO SUB 21@@: LET BCS) 
=2: GO SUB 148@@: GO SUB 128@: GO TO 24¢ 
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266 LET K=1: GO SUB 1788 

2@5 IF S<>@ THEN GO SUB 21908: LET BCS) 
=2: GO SUB 148@: GO SUB 1208: GO TO 24a 
21@ LET S=1+INT CS*RNDJ 

215 IF BCSJ=@ THEN GO TO 225 

226 GO TO 214 

222 GO SUB 2188 

225 LET BCSJ=2: GO SUB 14@@: GO SUB 128 
7) 

246 LET X=139-AX3: LET Y=25: INK 7: GO S 
UB 1205: INK 2 

245 GO SUB 158@ 

258 IF T=1 THEN GO TO 1988 


255 NEXT A 

278 NEXT A 

275 GO SUB 2888: GO SUB 1488: GO SUB 13 
Ja) 

286 LET x=?: LET Y=3: INK 7: GO SUB 138 
5S: INK @ 


285 GO SUB 15a@ 

236 IF T=@ THEN LET DRAW=1 

295 GO TO 198@ 

239 STOP 

38@ PAUSE S@: LET S=1+INT CSX*RNDJ: IF S 
“72=INT (S72) THEN GO TO 3aa 

382 LET B(S)=2 

318 GO SUB 14@@: GO SUB 12@@: LET X=19: 
LET Y=25: INK 7: GO SUB 1285: INK @ 

312 IF S<>S THEN GO TO 4@a@ 

315 GO SUB 2808 

31? LET X*=19: LET Y=3: INK 2: GO SUB 13 
85: INK @ 

32@ IF S72<>INT (S72) THEN GO TO 35a 
321 IF S=2 OR S=4 THEN LET S=3 

322 IF S=6 OR S=8 THEN LET S=] 

323 LET BC(S)=2 

324 GO SUB 14@@: GO SUB 128@@: LET X=16: 
LET Y=25: INK 2: GO SUB 1285: INK @ 

326 GO SUB 24a@a 


0X0 


328 LET X=16: LET Y=3: INK 7: GO SUB 13 
@5: INK @ 

33@ LET K=2: GO SUB 17@@: IF S<>@ THEN 
GO TO 333 

331 LET K=1: GO SUB 17@@: IF S<>@ THEN 
GO TO 333 

334 GO SUB 14@@: GO SUB 12@@: LET BCS)= 
2: LET X=13: LET Y=25: INK 7: GO SUB 128 
5S: INK @ 

336 GO SUB 15@@: IF T=1 THEN GO TO 190 
) 

338 GO SUB 2@@@: LET X=13: LET Y=3: INK 
2: GO SUB 1385: INK @ 

34@ LET K=2: GO SUB 17@@: LET B(S)=2: G 
0 SUB 140@: GO SUB 1200 

342 LET X=1@: LET Y=25: INK 7: GO SUB 1 
285: INK @ 

346 GO SUB 1920 

35@ LET S=18-S: LET S1=S: LET B(S)=2: G 
O SUB 1488: GO SUB 12aa 

352 LET X=16: LET Y=25: INK 7: GO SUB 1 
2@5: INK @ 

354 GO SUB 20aa 

355 LET X=16: LET Y=3: INK 2: GO SUB 13 
@5: INK @ 

356 LET K=1: GO SUB 17@@: IF S<>@ THEN 
GO TO 375 

357 IF S1<>3 THEN GO TO 36a 

358 IF BC6)=1 THEN LET S=8 

353 IF B(8)=1 THEN LET S=6 

36@ IF S1<>? THEN GO TO 363 

361 IF BC4)=1 THEN LET S=8 

362 IF BC8)=1 THEN LET S=4 

363 IF S1<>3 THEN GO TO 366 

364 IF BC2)=1 THEN LET S=6 

365 IF BC(6)=1 THEN LET S=2 

366 IF S1<>1 THEN GO TO 363 

367 IF BC2)=1 THEN LET S=4 

368 IF BC4)=1 THEN LET S=2 


83 


Snectrium Siumerc qmes 
84 opecirum supergames 


363 LET BC(S)J=2: GO SUB 14@@: GO SUB 122 
@: LET X=13: LET Y=2S: INK ?: GO SUB 128 


5S: INK @ 
37@ GO SUB 2@0@: LET X=13: LET Y=3: INK 


?: GO SUB 1385: INK @ 
371 LET K=2: GO SUB 17@@: LET B(S)=2: G 
QO SUB 14@@: GO SUB 1200 

372 LET X=1@: LET Y=25: INK 7: GO SUB 1 
2085: INK @ 

373 GO SUB 15@@: GO SUB 1322 

375 LET K=1: GO SUB 170@: LET B(S)=2: G 
0 SUB 14@@: GO SUB 12@@: LET X=13: LET Y 
=25: INK 7: GO SUB 1205: INK @ 

376 GO SUB 2@@@: LET X=13: LET Y=3: INK 
27: GO SUB 1385: INK @ 

377 LET K=2: GO SUB 17@@: IF S<>@ THEN 
GO TO 380 

378 LET K=1: GO SUB 17@@: IF S<>@ THEN 
GO TO 380 

379 LET S=1+INT CS3*RNOJ: IF BCS)<>B THE 
N GO TO 379 

388 LET B(S)=2: GO SUB 14@@: GO SUB 120 
@: LET X=10: LET Y=25: INK 2: GO SUB 120 
5: INK @: GO SUB 15@@: IF T=1 THEN GOT 
0 1982 

382 GO SUB 2@@@: LET X=1@: LET Y=3: INK 
2: GO SUB 13@5: INK @ 

384 FOR A=1 TO 9: IF BCA)=@ THEN LET S$ 
=A 

385 NEXT A 

386 LET B(S)=2: GO SUB 14@@: GO SUB 120 
@: LET X=?: LET Y=25: INK 2: GO SUB 12@5 

INK @: LET DRAW=1: GO TO 190@ 

4@@ LET S1=S: GO SUB 2000: LET X=19: LE 
T Y=3: INK ?: GO SUB 13@5: INK @ 

4@5 IF S<>S THEN LET S=5: GO TO 415 
41@ LET S=1@-S1 

415 LET B(S)=2: GO SUB 14@@: GO SUB 120 
@: LET X=16: LET Y=25: INK ?: GO SUB 12a 
5S: INK @ 


413 FOR B=1 TO 3 

$26 GO SUB 20@@: LET X=19-3xB: LET Y=3: 

INK 7: GO SUB 1385: INK @ 

425 LET. K=2: GO SUB 17@@: IF S<>@ THEN 

GO TO 4324 

426 LET K=1: GO SUB 17@@: IF S<>@ THEN 

GO TO 438 

42? IF B=1 AND B(S)=2 THEN GO TO 357 
9423 LET S=1+tINT CSX*RNDJ: IF BCSJO@ THE 
N GO TO 426 

43@ LET BCS)J=2: GO SUB 1486: GO SUB 122 
@: LET X=16-3xB: LET Y=25: INK 7: GO SUB 

1265: INK @ 


435 GO SUB 15@@: IF T=1 THEN GO TO 138 
7) 
436 NEXT B 


44@ LET DRAW=1: GO TO 139808 

338 INK @ 

93S STOP 

1688 INK 3 

1@05 FOR I=@ TO 18 

1@1@ PRINT AT 27+1;,133;CHRE 143 

1626 PRINT AT 7tI,1735CHRS 143 

1038 PRINT AT 18,1@4+1;CHRS 143 

1@4@ PRINT AT 14;16+1;CHR¢ 143 

1@5@ NEXT I 

1@55 INK @ 

1@6@ FOR I=1 TO 3 

1665 IF I<4 THEN PRINT AT 8,27+4kI31: GO 
TO 1686 

1076 IF 1>6 THEN PRINT AT 16,7+4xXCI-6); 
I: GO TO 168¢ 

1@75 PRINT AT 12;,;27+4xCI-3)31 

1@8@ NEAT I 

1@93@ RETURN 

11@@ INK 2 

1184 PRINT 

11985 PRINT TAB (5) 3° XXXXKXKKKKKKKKKKKKKKK 
a 

1118 PRINT TAB (533"X"3TAB €25)3"x" 
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112@ PRINT TAB (5)3"X NOUGHTS & CROSSES 
a 

1138 PRINT TAB (€5)3"X"3TAB (25) 3"xX" 

114@ PRINT TAB (503 USO OKA KX 
ue 

1158 RETURN 

1200 INK 5S 

1205 PRINT AT X;,Y3CHR$ 132 

1218 PRINT AT X%,Y+23;CHR¢ 136 

122@ PRINT AT X+1;,Y+13CHR# 143 

1238 PRINT AT Xt+2,Y3CHR¢ 129 

124@ PRINT AT Xt2,Y+2;CHRE 132 

125@ RETURN 

13@@ INK 4 

1385 PRINT AT X;,Y3CHR$ 132 

131@ PRINT AT &®,Y+2;CHRE 136 

1315 PRINT AT X,Y+13CHR¢$ 146 

132@ PRINT AT X+1;,Y3CHR$ 133 

1325 PRINT AT X+1,Y+23CHRY 138 

1332 PRINT AT X+2;,Y3CHR$ 129 

1335 PRINT AT X+2,Y+13;CHR¢ 131 

134@ PRINT AT X+2,Y+2;CHR$ 130 

1345 PRINT AT X+1,Y+13;CHR$ 128 

135@ RETURN 

1480 LET X=7+4xXINT CCS-1)73) 

1418 LET Y=6+4x*CS-3XINT CCS-1)73)) 

1428 RETURN 

15@@ LET DRAW=@: LET T=@ 

15@5 FOR J=1 TO 2 

151@ IF BC1J=J AND BC2)=J AND BC3)=J THE 
N GO TO 1688 

1315 IF BC1)J=J AND BCSJ=J AND BC3S)=J THE 
N GO TO 1688 

1520 IF BC1J=J AND BC4)=J AND BC?IJ=JS THE 
N GO TO 1688 

1525 IF BC2)=J AND BCS)J=J AND BC8)=J THE 
N GO TO 1688 

153@ IF BC3)=J AND BC6J=J AND BCSJ=J THE 
N GO TO 1688 


1535 IF BC3)=J AND B(S)=J 
N GO TO 168@ 
154@ IF BC4)=J AND BCS)=J 
N GO TO 168@ 
1345 IF BC?7J=J AND BC8)=J 
N GO TO 168@ 


1558 
iPS)s\5) 
1688 
1788 
17] 
A=] 
1762 
A=1 
1763 
A=) 
1784 
A=] 
17@5 


M LET Se: 


1786 
A=] 
178? 
A=] 
1788 
A=1 
1783 
A=1 
1714 


N LET S=2: 


lZisS 


N LET S=?: 


NEXT J 
RETURN 
LET T=1: 
LET S=@ 
IF BC1J=1 
THEN LET 
IF BC3J=1 
THEN LET 
LF BolI=i 
TREN LET 
CF @(1J=1 
THEN LET 
Ir BCEIJSK 
GO 
IF BC2)=1 
TREN EST 
IF BC2)=1 
THEN CET 
IF B(8)=] 
THEN LET 
IF BC8)=1 
TREN LET 
ir BC1J=K 
GO 
IF BC1J=K 
GO 


RETURN 


AND 
S=2: 
AND 
S=8: 
AND 
S=9: 
AND 


BCS)=]1 
GO TO 
BC7)J=]1 
GO TO 
BC6)=1 
GO TO 
BC8)=1 
S=93: GO TO 
AND BC2)=K 
TO 1880 
AND B(4)=1 
S=1: GO TO 
AND BC6)=1 
S=3: GO TO 
AND BC6)=1 
S=3: GO TO 
AND BC4)=1 
S=7: GO TO 
AND BC3)=K 
TO 1882 
AND BC4)=K 
TO 1882 


AND BC?J=J 


AND BC6)=J 


AND BCS)=J 


AND BCS)=2 
1888 
AND BCSJ=2 
1888 
AND BCS)=2 
1880 
AND BC5)=2 
1880 
AND BC3)=@ 


AND BCS)=2 
1882 
AND BC(S)=2 
1888 
AND BC35)=2 
1886 
AND BCS)=2 
1888 
AND BC2)=8 


AND BC7)=@ 


THE 


THE 


THE 


AND 


AND 


AND 


AND 


THE 


AND 


AND 


AND 


AND 


THE 


THE 


1716 IF A=1 AND BCS)=1 AND BCS3)=1 AND BC 


1J=Z AND BC7J=@ THEN LET S=?7: 


2) 


GO TO 


188 


1717 IF A=1 AND BCS)=1 AND BC7)J=1 AND BC 


3)=2 AND BC3)=@ THEN 


B 


LET 


S=3: GO TO 


18a 


1718 IF A=1 AND BCS)J=1 AND BC3)=1 AND BC 
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7)=2 AND BC1)=@ THEN 
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LET S=1: 


GO TO 188 


1713 IF A=1 AND BCS)=1 AND BC1J=1 AND BC 


33=2 AND BC3)=@ THEN 


2) 
1726 IF BC1J=K 
N_ LET S=3: GO 
1725 IF BC1)=K 
N LET S=4: GO 
1736 IF BC1)=K 
N LET S=5: GO 
1731 IF BC3)=1 
A=1 THEN LET 
1732 IF BC3)=1 
A=1 THEN LET 
1735 IF BC2J)=K 
N LET S=1: GO 
174@ IF BC2)=K 
N LET S=8: GO 
1741 IF BC?73J=1 
A=1 THEN LET 
1742 IF BOZI=1 
A=1 THEN LET 
1745 IF BC2)=K 
N LET S=S: GO 
175@ IF BC3)=K 
N LET S=?: GO 
1751 IF BCS3=1 
A=1 THEN LET 
1752 IP BCSJ=1 
A=1 THEN LET 
1755 IF BC3)=K 
N LET S=93: GO 
1766 IF BC3)=K 
N LET S=S: GO 
1763 IF BC3)=K 
N LET S=6: GO 
1766 IF BC4)=K 
N LET S=6: GO 
1763 IF BC4)=K 
N LET S=S: GO 


LET 


AND BCS)=K 
TO 1880 
AND BC?7)=K 


TO 1808 
AND BC3S)=K 
TO 1888 
AND BC4)=1 
S=7: GO TO 
AND BC8)=1 
S=?: GO TO 
AND BC3)=K 
TO 1886 
AND BCS)=K 
TO 1888 
AND BC2)=1 
S=3: GO TO 
AND BC6)=1 
S=3:2 GO TO 
AND BC8I)=K 
TO 1888 
AND BCS)=K 
TO 1888 
AND BC2)=1 
S=1: GO TO 
AND BC4)=1 
S=1: GO TO 
AND BC6)=K 
TO 1880 
AND BC?)=K 
TO 186 
AND BC3S)=K 
TO 1888 
AND BCSJ=K 
TO 1888 
AND BC6)=K 
TO 1808 


S=3: GO TO 


AND BCS)=8 
AND BC4)=@4 


AND BC(5)=@ 


AND BCS)=2 
1882 
AND BCS)=2 
1888 


AND B(1)=@ 
AND B(8)=@ 
AND B(S)=2 
1828 

AND B(S)=2 
1822 

AND B(S)=@ 
AND B(7)=@ 
AND B(S)=2 
1828 

AND B(S)=2 
1802 

AND B(9)=@ 
AND B(5)=2 
AND B(6)=@ 
AND B(6)=@ 


AND BCSj)=@ 


188 


THE 
THE 


THE 


AND 


AND 


THE 


The’ 


AND 


AND 


THE 


THE 


AND 


AND 


aE 


THE 


THE 


ThE 


THE 
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1772 IF BC4)=K AND BC7)=K AND BC1)=@ THE 

N LET S=1: GO TO 18a 

1775 IF BC6)=K AND B(SJ=K AND B(4)=@ THE 

N LET S=4: GO TO 182 

1778 IF BC(6)=K AND B(9)=K AND BC3)=@ THE 

N LET S=3: GO TO 18a8 

1788 IF BC(7)=K AND BC(SJ=K AND B(3)=@ THE 

N LET S=3: GO TO 18@8 

1781 IF BC7)=K AND B(8)=K AND BC9)=@ THE 

N LET S=9: GO TO 18@a 

1784 IF BC7)=K AND BC(9)=K AND B(8)=@ THE 

N LET S=8: GO TO 182 

1787 IF B(8)=K AND BCS)=K AND BC7}=@ THE 

N LET S=?: GO TO 1898 

1788 IF B(8)=K AND B(SJ=K AND BC2)=@ THE 

N LET S=2: GO TO 18a0 

179@ IF BCS)=K AND B(SJ=K AND BC1)=@ THE 

N LET S=1: GO TO 1820 

188 RETURN 

1988 IF DRAW=1 THEN PRINT AT 19,103;"MAT 

CH DRAWN": GO TO 193@ 

1918 IF J=1 THEN PRINT AT 19, 1@3;"NOUGHT 

S WINS": GO TO 1932 

1928 PRINT AT 19,1@;"CROSSES WINS" 

1938 PAUSE 1: PAUSE 12a 

1848 PAUSE 18: PRINT AT 139,8;"ANOTHER GO 
(Y/N)" 

195@ LET 2$=INKEY$: IF Z$="" THEN GO TO 
1958 

196@ IF @$="N" THEN STOP 

1965 FOR I=] TO 9: LET BCI)=@: NEXT I 
197@ CLS : GO TO 4a 

2008 FLASH 1: PRINT AT 13,113;"YOUR MOVE" 
> FLASH @ 

2010 LET S$=INKEY$: IF S$="" THEN GO TO 
2010 

2828 IF CODE (S$}<48 OR CONE (S¢)>5? THE 

N GO TO 2a0@ 

2822 IF BCUAL (S#)]<>@ THEN GO TO 2018 

2024 LET S=UAL (S$) 
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2025 LET BCS)=1 

2828 GO SUB 14@@: GO SUB 13aa 

2823 PRINT AT 1953113” : 

2838 RETURN 

2188 IF RND<L THEN RETURN 

2118 LET S=1+INT CS*RND): IF BCS)<>@ THE 
N GO TO 2118 

2128 RETURN 


Chapter 8 


Simon 


Description 


How many times have you excused yourself by saying’. . . sorry, 
it just slipped my memory’, when you have forgotten that vital 
piece of information? Well, all you need to succeed at Simon is a 
very good memory. 

The object of the game is to reproduce the order in which the 
computer flashes a sequence of numbers in the range one to six. 
But be warned —the longer the sequence of numbers, the quicker 
they are displayed. 
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Hints on Entry 


The program is fairly short and should not give any problem 
when being entered. The only part of the program which must be 
entered with special care is the subroutine at line 1000. This is the 
routine which places into the computer’s memory the machine 
code program to make the screen flash, and consequently the data 
at line 1040 must be input accurately. 

As with all programs involving machine code routines, the 
program should be saved on tape or microdrive before being 
executed and the command to do this is: 


SAVE “SIMON” LINE 1 
or 
SAVE #”M”;1;“SIMON” LINE 1 


Techniques 


In Chapter 25 of the Spectrum manual there is a section on what 
are known as system variables. For the beginner to computing, 
the concepts involved are, extremely complex as one needs to 
understand something about machine code and the internal 
workings of the machine to understand their meaning and 
usefulness. However, by manipulating these variables using the 
POKE command, some interesting and useful facilities can be 
made available. A few of these are described below. 


POKE 23562,X Alters the speed at which a key automatically 
repeats. The smaller the value of X the faster 
the repeat. 

POKE 23609,X Alters the duration of the click obtained when 
a key is depressed. 

POKE 23617,X Changes the cursor from one mode to 
another. 

POKE 23624,X Changes the border colour very quickly. The 
value of X must be eight times the colour 
required. 

POKE 23659,X Specifies the number of lines in the lower part 
of the screen. It can be used to divide the 


screen into two distinct windows. 
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POKE 23692,X Specifies the number of lines which will be 
displayed in the top part of the screen before 
the SCROLL? message appears. 


These are just a few of the most useful system variables which 
can be altered very easily, thus changing the way in which the 
machine operates. In each case, it must be remembered that the 
value of X must be in the range 0-255. 


Instructions 


The program is automatically executed when it has been loaded. 
After a brief explanation of the game, the computer decides on 
the random sequence and six squares are displayed on the screen. 
Each of these squares has a number in it, and it is this number 
which you must press when it is your turn to reproduce the 
computer’s moves. 

Each time you correctly echo the computer’s sequence, the 
sequence is increased by one and repeated for you to try again. 
The game ends as soon as you make a mistake, and if your score is 
a new record then you are asked to input your name (with a 
maximum of eight characters) which is then displayed for all to 
see on the right-hand side of the screen. 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


4 POKE 23658, 8 

5S CLEAR 684439 

6 RANDOMIZE 

1@ DIN NC5@) 

15 BORDER 1: INK 1 
2@ GO SUB 88a 

25 LET BEC=]2 
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32 LET Bs="SPECTRUM" 

45 PRINT =: PRINT 

5@ PRINT “THE OBJECT OF THE GAME SIMON 

IS TO REPRODUCE A GIVEN SEQUENCE OFEVEN 
TS. 

55 PRINT 

6@ PRINT “THE SCREEN WILL SHOW SIX SQU 
ARESAND THESE WILL FLASH IN A RANDOMORDE 
Re» 

65 PRINT “YOUR TASK IS TO REPRODUCE TH 
E ORDER IN WHICH THIS OCCURS BY PRES 
SING THE CORRESPONDING KEYS IN THE RANGE 

1 Ta 6," 

?2@ PRINT 

75 PRINT “PRESS ANY KEY TO CONTINUE" 

82 GO SUB 1884 

85 GO SUB 368 

398 IF INKEY#$="" THEN GO TO 38 

180 CLS 

105 GO SUB 88a 

11@ LET P=22734: LET 

LIS LET, P=2Z2e3e% LET 


C=]: GO SUB 1180 

's 
126 LET Pe22964: LE] Ce 

a 

C 

c 


] 
2: GO SUB 1188 
3: GO SUB 1142 
125 LET P=23854: LEY C4? GO SUB 1162 
136 LET Ps22852> LET S: 
L335 LEY PHZ2e2o° LET 6 
14@ PRINT AT 7;153"1" 
145 PRINT AT 1@3213"2" 
15@ PRINT AT 14,213"3" 
I59 PRINT AT l?slai"4" 
166 PRINT AT 14,93"5" 
165 PRINT: AT 16,55 "6" 
176 PRINT AT 1@,13"LENGTH” 
175 PRINT AT 12,43"8" 
18@ PRINT AT 18,24;3;"RECORD" 
185 PRINT AT 12,26;5REC 
13@ PRINT AT 14,26;"BY" 
195 PRINT AT 16,24;3;B$ 
266 FOR J=1 TO 5a 


> GO SUB 1188 
> GO SUB 1188 


285 
210 
215 
220 
238 
246 
256 
266 
262 
278 


PAUSE 25 

FOR I=1 TO J 

IF J<1@ THEN PAUSE 25~-2.5xJ 

GO SUB NC1J*56+45a 

NEXT I 

PRINT AT 2@,113° YOUR TURN" 

FOR I=1 TO J 

LET N$=INKEY$: IF N$=""" THEN GO TO 


IF CODE CN$)<43 OR CODE (N#$3>54 THE 


N GO JO 26¢ 


288 
296 
3286 
312 
328 
332 
342 


IF VAL (N#)<>NCI) THEN GO TO 1286 
GO SUB NCI)XS@+45¢@ 

NEXT I 

PRINT AT 28,113" ° 

IP J<§1]@ THEN PRINT AT Y254 3d 

ip J>-16 THEN PRINT AT 125335 

IF J>REC THEN PRINT AT 12; 2639/2 PR 


INT AT 16,243" ° 


490 
433 
582 
5@5 
518 
=) Gs) 
328 
354 
299 
568 
565 
378 
640 
685 
618 
615 
6268 
6528 
BOS 
668 


NEXT J 

STOP 

LET C=?: LET P=22734: GO SUB 1184 
PEEP .237 

LET C=l: LET P=22734: GO SUB 1188 
PRINT AL #3 1ag"1" 

RE TURN 

LET C=?7: LET P=22836: GO SUB 118@ 
BEEP .2.3 

LET €#2: LET P#=2Z23s63 GO SUB 1188 
PRINT AT 18s 219°2" 

RETURN 

LET E27? LET P=223564? GO SUB 11g@e@ 
BEEP . 23,11 

LET C=3: LET P=22964: GO SUB 1182 
PRINT Al 14521 3" 

RETURN 

LET C=?7: LET P=23054: GO SUB 1108 
BEEP «23:12 

LET C=4: LET P=23@54: GO SUB 1198@ 
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665 PRINT AT 17.1543°4" 

678 RETURN 

7@@ LET C=?: LET P=22952: GO SUB 1192 
7@5 BEEP .2,14 

71@ LET C=5: LET P=22952: GO SUB 1128@ 
715 PRINT AT 14,93"5" 

228 RETURN 

75@ LET C=?: LET P=22824: GO SUB 1190 
735 BEEP .2,16 

768 LET C=6: LET P=22824: GO SUB 1199 
76s PRINT AT 19;:57"°6" 

278 RETURN 

239 STOP 

B2@ PRINT TAB (9) 3" XXXKKXKAKKKKK 

8128 PRINT TAB (9)3;"X"3TAB (21)3"x" 
828 PRINT TAB (9)3;"* SIMON xX" 

838 PRINT TAB (9)3"*"3TAB (21)3"x" 
848 PRINT TAB (09) 3 COO OOKKK 

858 RETURN 

98@ FOR I=1 TO 5a 

91@ LET NCIJ=1+INT CRNDX6) 

328 NEXT I 

338 RETURN 

1@@@ FOR 1=68453 TO 68477 

1818 READ A 

1@2@ POKE I;A 

1@3@ NEXT I 

1835 RETURN 

1848 DATA 42,34, 236,58, 36,236,17,29,9; 14 
6358535 119,353 5, 154, 58, 236, 25, 13,154548; 
236,281 

110@ LET H=INT (P7256) 

111@ LET L=P-H*256 

1128 POKE 6845@,L 

1138 POKE 6@451,H 

114@ POKE 68452, 7+?xXC 

115@ LET 22=USR 68453 

1168 RETURN 

12@@ PRINT AT 12,113"GAME OVER" 


1205 
1216 
L215 
1226 
LZ25 
1227 
1238 
A232 
$ 

234 
1236 
1244 
245 
1256 


1268 


GO SUB 14a¢a 

PAUSE 252 . 
LET J=J-1 

IF J<=REC THEN GO TO 1250 

PRINT AT 2@,83"ENTER YOUR NAME"; 

LET B=" 

FOR K=24 TO 31 

PAUSE @: LET Z$=INKEY$: LET BS=B$t? 


PRINT AT 16;K32$ 


IF CODE C@$)=13 THEN GO TO 1245 
NEAT K 


LET REC=3 
PRINT AT 26,63" ANOTHER GO ? 


PAUSE @: LET 2$=INKEY$: IF Z$="" TH 


EN GO TO 1268 


1278 
1282 
1285 
1298 
1382 
1316 
148 
1418 
1426 
1438 
1442 
1456 
1460 


1 39 By 


IF 2$="4" THEN CLS + STOP 
PRINT AT iZs,i13” ° 

PRINT AT 24,63" 

GO SUB 38¢ 

PRINT AT 12,335" @" 

GO TO 288 

FOR L=] TO 8 

READ ASB 

BEEP A;B 

NEXT L 

RESTORE 1462 

RETURN 

DATA .337;.1;2;.151;.1;52;,.3,3;.6;2; 
2337 
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Tenpin 


Description 


Tenpin bowling is a game for two players that will be familiar to 
many readers. The object of the game is to bowl your ballin sucha 
way that you knock over ten skittles at the other end of a long 
alley. If you knock the ten skittles over in one bowl, you have 
obtained a ‘strike’. This is beneficial to your score because it 
doubles the points obtained in your next two bowls. 

If you are not successful on your first attempt you are allowed a 
second chance to knock over the remaining skittles. If you 
remove them all at this stage, this is known as a ‘spare’. This also 
improves your score by doubling the points obtained in your 
next bowl. 

There are ten rounds and you each take turns at bowling. If you 
should obtain a strike or a spare on your last bowl then you are 
awarded the appropriate number of extra bowls. 
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Hints on Entry 


Tenpin should prove very easy to enter with the only lines 
needing special attention being 2000-2099. This is where the ball 
and the skittles are defined, so numerical errors in the data lines 
would cause the wrong shapes to be displayed. 

When the program is entered then save it on tape or microdrive 
in the usual way by typing: 


SAVE “TENPIN” LINE 1 
or 
SAVE *”M”;1;“TENPIN” LINE 1 


Techniques 


One of the major problems encountered when designing long 
programs on a Spectrum computer with Interface 1 and a micro- 
drive is the amount of typing required to save the current 
program onto a cartridge. For example: 


ERASE “M”;1;“PROG” 
SAVE #”M”;1;“PROG” 
VERIFY *“°M”;1;’“PROG” 


Because of the number of commands, one is often tempted to save 
the program very infrequently and if machine code routines are 
used or your Spectrum is prone to “glitch” then the failure to 
make frequent copies can lead to a lot of unnecessary work. 

A simple solution for this problem is to start any program by 
typing the following line: 


9999 ERASE “M”;1;“PROG”:SAVE* “M”;1;“PROG”: 
VERIFY *“M”;1;“PROG” 


If this is done, then a current copy of the program can be saved 
onto a cartridge by simply typing GOTO 9999. 

Note. Due to the ERASE statement at the beginning of the line, 
this method can only be used when an original copy has been 
made. 
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Instructions 


When the program is executed, the bowling alley will be 
displayed across the centre of the screen with the skittles on the 
right-hand side. Above and below the alley are the score cards of 
the two players showing the frame, the number of strikes and 
spares scored, and the total number of points obtained. 

When it is your turn to bowl, the computer will flash your 
number and ask for a position in the range 1-9. This determines 
where you start your bowl from, with 1 being the extreme left of 
the alley and 9 the extreme right. You select your position by 
pressing the appropriate key and then you are asked for the speed 
at which you wish to bowl. In this case, 1 is the slowest and 5 the 
fastest. You are then asked which way you would like to bias the 
ball—either left or right—and when you have selected either L 
or R, your ball is automatically bowled. 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


1 POKE 23658,;8 
S DIN BC18) 
1@ BORDER 1 
28 GO SUB 1882 
24 LET SCl=@: LET SC2-@? LET ST]=@? LE 
T ST2=@: LET SP1=@: LET SP2=@ 
25 LET U=@: LET U=6 
36 GO SUB 20a@ 
48 FOR T=1 TO 10 
38 FOR P=1 TO 2 
51 LET LAST=a@ 
a2 iF Fel THEN FRIAT AT I7s2i°2"? Pri 
NT AT 3,132 FLASH 1: PRINT AT 3,23°1": F 
LASH @ 
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oad IF P=2 THEN PRINT AT 3aZ2g°1"? PRIN 
T AT 173,13: FLASH 1: PRINT AT 17;23"2": 
FLASH @ 

~} BEEP lat BEEP .d3¢* BEEP .livt BE 
EP Igiz 

55 GO SUB 2188 


68 
65 
66 
72 
82 
38 
182 
128 


2206: 


132 
14 
145 
158 
155 


2200: 


208 
218 
228 
232 
235 
236 
238 
248 
241 
242 
243 
244 
LASH 
245 


EP ls 


247 
248 


FOR K=1 TO 16: LET BCKJ=@: NEXT K 
LET SC=@: LET STR=@: LET SPA=@ 
GO SUB 1188 


GO SUB 1280 

GO SUB 13868 

GO SUB 1488 

LET GO=1: GO SUB 1580 

IF STR=1 THEN GO SUB 17886: GO SUB 


GO TO 168 

GO SUB 1288 

GO SUB 13a@ 

GO SUB 1482 

LET GO=2: GO SUB 1588 

IF SPA=1 THEN GO SUB 18@@: GO SUB 
GO TO 164 

GO SUB 168@ 

PAUSE 5@ 

NEXT P 

NEAT T 

LET P=1 

FOR Q@=1 TO 16: LET BCQ)=G: NEXT @ 
IF U=@ THEN GO TO 386 

INK @: PAPER 6: PRINT AT 3,63"EXTRA 


IF U=1 THEN LET UU=1: 
LET WW=2 

GO SUB 11@@: INK @: PAPER 6 

PRINT AT 17;23"2": PRINT AT 3,13: F 


GO TO 243 


1: PRINT AT 3,;23;"1": FLASH @ 

BEEP ,1s@% BEEP .1.4? BEEP sla?! BE 
12 

LET SPA=@: LET STR=@ 


FOR W=1 TO UU 
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243 LET SC=a 

25@ GO SUB 1288: GO SUB 1388: GO SUB 14 
2B 

‘264 FOR Q=1 TO 18: IF BCQ)J=1 THEN LET 
SC=SC+]1 

265 NEXT Q 

266 IF UU=2 AND W=1 AND SC=1@ THEN GO 
SUB 178@@: GO SUB 11@@: FOR Q=1 TO 18: LE 
T BCQ)=8: NEXT Q: LET SC1=SC1+1@: LET ST 
R=]: GO TO 298 

267 IF W=1 AND SC=1@ THEN GO SUB 17a@: 
GO SUB 1188: GO TO 298 

268 IF STR=1 AND W=2 AND SC=1@ THEN GO 
SUB 1788: GO TO 29a 

263 IF STR<>1 AND W=2 AND SC=1@ THEN G 
9 SUB 1888: GO TO 296 

296 NEXT W 

2392 LET SC1=SC1+SC 

294 GO SUB 16982 

300 LET P=2 

325 FOR Q=1 TO 14: LET BCQ)=@: NEXT Q 
318 IF U=@ THEN GO TO 48a 

312 INK @: PAPER 6: PRINT AT 17,63"EXTR 
a" 

314 IF U=1 THEN LET UU=1: GO TO 328 
315 LET UU=2 

328 GO SUB 118@: INK @: PAPER 6 

325 PRINT AT 3.23°1"2 PRINT AT 1l7sla2 F 
LASH 1: PRINT AT 17;23;"2": FLASH @ 

33@ BEEP .1,;@: BEEP .1,4: BEEP .1;7: BE 
EP tai2Z 

334 LET STR=@: LET SPA=@ 

335 FOR W=1 TO UV 

348 LET SC=a 

345 GO SUB 128@: GO SUB 138@@: GO SUB 14 
aa 

35@ FOR Q=1] TO 1@: IF BCQ)=1 THEN LET 
SC=SCtl1 
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351 NEXT Q 

355 IF UU=2 AND W=1 AND SC=1@ THEN GO 
SUB 178@: GO SUB 1190: FOR Q=1 TO 1@: LE 
T BCQJ=8: NEXT Q: LET SC2=SC2+1@: LET ST 
R=1: GO TO 3398 

356 IF W=1 AND SC=1@ THEN GO SUB 1788: 
GO SUB 1180: GO TO 3398 

368 IF STR=1 AND W=2 AND SC=1@ THEN GO 
SUB 178@@: GO TO 338 

365 IF STR<>1 AND W=2 AND SC=1@ THEN G 
O SUB 18@@: GO TO 394 

398 NEXT W 

392 LET SC2=SC2+SC: GO SUB 168@ 

4@@ INK @: PAPER 6: PRINT -AT 3,;25"1": P 
RINT A] l#e2p"s" 

4@1 GO SUB 1188 

4@2 PAPER 7: INK @ 

4@5 IF SC1>SC€2 THEN PRINT AT 33 83"PLAT 
ER 1 WINS" 

418 If SC1<SC2 THEN PRINT AT $,85"PLAT 
ER 2 WINS" 

415 IF SCl=SC2 THEN PRINT AT 3,8;3"MATC 
H DRAWN" 

426 PAUSE 188 

425 PAPER S: PRINT AT 28,73" ANOTHER GAM 
E. (TANI 

43@ LET AS=INKEY$: IF A$=""_ THEN GO TO 
432 

435 IF AS="Y" THEN RUN 

44@ CLS : STOP 

1@66 FOR I=@ TO 2] 

1@@5 IF 1>18 THEN PAPER 5: GO TO 18638 
1@1@ IF I<S OR 1>13 THEN PAPER 6: GO JO 
1838 

1828 PAPER ? 

1@3@ PRINT AT 153983" 


164@ NEXT I 
1841 PAPER 7: FOR Q=1]1 TO 3: PRINT AT 4tQ 
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28303" "“;CHR$ 138: NEXT Q 

1845 PAPER 6: INK @ 

1035@ FOR J=@ TO 14 STEP 14 

1255 PRINT AT ifJd,15°PLY" 

1@58 PRINT AT 1+J;,;63;"FRAME" 

1@6@ PRINT AT 1+J,123;"STRIKE" 

1865 PRINT AT 1+J,193;"SPARE" 

1678 PRINT AT 1+J;253;"SCORE" 

1675 PRINT AT StJsZ232+INT C714) 

1878 PRINT AT 3t+J,83"8" 

188@ PRINT AT 3tJ,153"@" 

1@85 PRINT AT StJs213°9" 

1698 PRINT AT 3+J,283"@" 

1@35 NEXT J 

1837 RETURN 

11@@ INK 3: PAPER 7: PRINT AT 9; 273CHR$S 
144 

1185 PRINT AT 8,28;CHR$ 144 

111@ PRINT AT 18,28;CHRS 144 

1113 PRINT AT 7s 23;CHES 144 

112@ PRINT AT 93;293;CHR$ 144 

1125 PRINT AT 11;295;CHRS 144 

1138 PRINT AT 6,;3@;CHR¢ 144 

1135 PRINT AT 8,;3@;3CHR¢$ 144 

114@ PRINT AT 18;3@3CHR¢ 144 

1145 PRINT AT 12,3@;CHR$ 144 

115@ RETURN 

1208 INK @: PAPER S: PRINT AT 2@,73'"POSI 
TION € i-s J* 

12@5 PAUSE @: LET P#=INKEY$: IF P$="" TH 
EN GO TO 12@5 

121@ IF CODE P#<43 OR CODE P$>57? THEN G 
90 TO 1285 

1215 LET POS=VAL PS 

1222 PRINT AT 28,73" SPEED C 1-3 ) ®* 
1225 PAUSE @: LET S$=INKEY$: IF S$="" TH 
EN GO TO 1225 

123@ IF CODE S$<43 OR CODE S$>53 THEN G 
O TO i225 


1235 
1248 
1243 
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LET S=UAL S¢ 
PRINT AT 28,73" BIAS C L OR R J" 
PAUSE @: LET B#=INKEY$: IF B$="" TH 


EN GG TO 1245 


1256 
1245 
1255 
1268 
1388 
1385 
1318 
42 

L315 
1326 
T3295 
1332 
1348 
1345 
1358 
1352 


=: 
1353 


L359 
1358 


IF BS<>"L" AND BEY<>"R" THEN GO TO 


PRINT AT 20,73" 7 
RETURN 
INK 4: PAPER 7: LET X=4+POS: LET 2= 


FOR Y=3 TO 31 
IF INT (€3@X*RNDJ<S+23 THEN GO TO 13 


if B@="L” THEN LET x=x-] 

if Be="R” THEN LeT Aexe] 

IF X<S THEN LET &=5S 

IF A213 THEN LET K#I3 

IF Y<>3 THEN PRINT AT X15, 713" " 
PRINT AT %;Y3CHR¢ 145 

LET Alex? LET T1=7 

LET PA=S-S: IF PA=@ THEN GO TO 135 


PAUSE PA 
IF Y<2? OR €<4>@ THEN GO TO 1385 
IF Y=27 AND 293 AND BUlj=@ THEN LE 


T 2=1: GO JO 1385 


1362 


IF Y=28 AND X=8 AND BC2)=@ THEN LE 


T 42=2: GO TO 1385 


1362 


ET 2= 


1364 


IF Y"28 AND M=12@ AND BC3J=8 THEN L 
3: GO TO 1385 
IF Y=23 AND K=7 AND BC4J=@ THEN LE 


T €=4: GO TO 1385 


1366 


IF Y=25 AND #=5 AND BCSJ=@ TREN LE 


JT @2=5: GO TO 1385 


1368 


ET 2= 


1378 


IF Y=29 AND X=11 AND BC6)=@ THEN L 
6: GO TO 1385 
IF Y=3@ AND X=6 AND BC7J=@ THEN LE 


T @=7: GO TO 1385 


L372 


IF Y=3@ AND X=8 AND BC8)=@ THEN LE 


T 2=8: GO TO 1385 
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1374 IF Y=3@ AND xX=1@ AND BCS)=@ THEN L 
ET @=9: GO TO 1385 

1376 IF Y=3@ AND xX=12 AND BC1@)=@ THEN 
LET @=1@: GO TO 1385 

1385 NEXT Y 

1386 PRINT AT X,Y-13" ° 

1387 IF @=@ THEN BEEP .1,7: BEEP .1,?7: 
BEPP als7? BEEP ».3,3° BEEP «l,S* BEEP «1 
>5: BEEP .1,5: BEEP .5,2: RETURN 

1385 LET Bl2)=1 

139@ IF @=1 AND RND<.S THEN FOR Q=1 TO 
1@: LET BCQ)=1: NEXT Q@: GO TO 13396 

1392 GO SUB 23aa 

I355 FOR K-¥ TO 128 

i334 iF RND¢,7 THEN LET BIKI=1 

1396 NEXT K 

13938 RETURN 

1496 INK 3: PAPER 7? 

14@3 FOR J=@ TO 1 

14@5 IF BC1J=J THEN PRINT AT 3;273CHR$ 


C144-16xJ 3 

141@ IF BC2)=J THEN PRINT AT 8,28;CHR$ 
C144-16xJ) 

1415 IF BC3)=J THEN PRINT AT 18;28;CHR$ 
Ci44-]62J J 

142@ IF BC43=J THEN PRINT AT 7;29;CHR$ 

C144-16xJ 3 

14235 IF BCS}=J THEN PRINT AT 3; 25j;CHRS 

0144-16xJ 3} 

143@ IF BC6)=J THEN PRINT AT 11;293CHR$¢ 
C144-16xJ) 

1435 IF BC7J=J THEN PRINT AT 6,3@;CHR$ 

(144-16xJ) 

144@ IF BC8J=J THEN PRINT AT 8; 38;CHR$ 

C144-16xJ J 

1445 IF BCS)J=J THEN PRINT AT 16,3@5CHR$ 
C144-16XJ) 


145@ IF BC1@)=J THEN PRINT AT 12; 383CHR 
$ (€144-16xJ) 


1455 NEAT J 

1468 RETURN 

1566 LET SC=@: FOR K=1 JO 18 

i3@> IP BCKI=1 THEN CET SC=SErl 

15198 NEXT K 

Isls IPF LAST<2a@ THEN LET SE=SC-LAST 
1528 IF P=2 THEN 6&0 10 1545 

1522 JF U=@ THEN CET SCi=SC1+SC: GO TO 
1576 

1325 IF U1 THEN LET SCi=-SCIfUSSC? LET 

U=1: GO TO 1578 

153@ LET SC1=SC1+2x*SC: LET U=@: GO TO 15 
78 

1345 IF Y=@ THEN WET S€Z=SC2+Sce GO TO 
1576 

1990 IF Y>1l THEN LET S€2=SC2+UxSG? LET 

Y=1: GO TO 1578 

1555 LET SC2=SC2+2xSC: LET U=@: GO TO 15 

7a 

157@ IF SC=1@ AND GO=1 THEN LET STR=1 
1588 IF LAST?SC=128@ AND GO=2 THEN LET SP 

AHL 

1365 LET CAST=SC 

1598 RETURN 

16@@ PAPER 6: INK @: IF P=2 THEN GO TO 
1656 

i685 IF SCi<1@ THEN PRINT AT 3; 26;S5€7* 

GO TO 1618 

1666 IF SC1<1@@ THEN PRINT AT 33;273SC1: 
GO TO 1616 

16@7 IF SC1<1@@@ THEN PRINT AT 3;263SC] 

GO TO 1618 

1643 RETURN 

165@ IF SC2<1@ THEN PRINT AT 17,285SC2: 
GO JO 1664 

1655 IF SC2€1@0 THEN PRINT AT I7s2755C2 

GO TO 1668 
1657 IF SC2¢1@@@ THEN PRINT AT 17;263SC 
2: GO TO 1668 
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1699 RETURN 

17@@ FLASH 1: INK @: PAPER 7: PRINT AT 3 
»263"STRIKE" 

17@1 FOR Q=@ TO 5@: BEEP .@1;,G: NEAT @: 

FLASH @: PRINT AT 9; 263" 7 

17@2 PAPER 6: IF P<>1 THEN GO TO 175@ 
17@5 LET STl=STiti 

Lf7i@ If ST1<i8 THEN PRINT AT Sslegsrr? 

RETURN 

1728 PRINT AT 33;143ST1: RETURN 

{738 LET STZ=SsT 2] 

1751 If ST241@ THEN PEINI AT L/iilaisiZs 
RETURN 

176@ PRINT AT 17;143ST2: RETURN 

18@@ FLASH 1: INK @: PAPER 7: PRINT AT 9 
i273" SRARE” 

1861 FOR Q=5@ TO @ STEP -1: BEEP .@1,Q: 
NEXT Q@: FLASH @: PRINT AT 935;273" . 
1602 PAPER 6: IF P<>1 THEN GO TO 185@ 
1805 LET SP1=SP1+1 

1810 IF SP1<1@ THEN PRINT AT 3;213SP1: 

RETURN 

182@ PRINT AT 3;2@;SP1: RETURN 

1856 LET SP2=SP2+1 

1651 IF SP2¢1@ THEN PRINT AT 1752] j5P2° 
RETURN 

186@ PRINT AT 17;2@3;SP2: RETURN 

2006 FOR N=@ TO ? 

261@ READ R 

2626 POKE USR "a'+N,R 

2030 NEXT N 

2648 FOR N=@ TO 7? 

2@5@ READ R 

2@6@ POKE USR "b"+N;R 

2678 NEXT N 

2@8@ RETURN 

2098 DATA 16;16;56,56;,56, 124, 124,56 
20399 DATA @;,8,8,62,127,127,127,62 

41@6 IF P=Z THEN GO TO 2158 
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4114 IF [18 THEN FRINT AT 3,837 RETUR 


N 


212@ PRINT AT 3,737: RETURN 
215@ IF T<1@ THEN PRINT AT 17,837: RETU 


RN 


216@ PRINT AT 17,737: RETURN 


2206 IF P=1 
2216 IF P=] 
2226 IF P=2 
2230 IF P=2 
224@ RETURN 
2300 IF 2=1 
2318 IF #=2 
2228 IF 24 
23548 [Ff #7 
bet Ts 

235@ RETURN 


AND STR=1 THEN LET U=Ut2 
AND SPA=1 THEN LET U=Url 
AND STR=1 THEN LET U=Ut2 
AND SPA=1 THEN LET V=Ut] 


THEN LET Y=1 

OR 2-3 THEN LET Tez 

OR @=5 OR @=6 THEN LET Y=4 
OR €=8 OR 2=9 OR 2=1@ THEN 
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The Madcap Rally 


Description 


The year is 2032, and the main event at the London Olympics is 
the deadly Madcap Rally. Each competitor is driving a Mark 3 
Sinclair Electric Buggy, and his task is to go round the circuit 
collecting all the markers shown in green and blue, but avoiding 
the anti-buggy mines indicated in red. 

Each country entering the event has only one competitor, and 
five buggies equipped with a constant-speed motor, high- 
sensitivity steering but, sadly, no brakes! Four days into the 
event, it finally becomes your round. The Union Jack is raised, 
the anthem is played and you’re off in search of gold. 
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Hints on Entry 


As can be seen in the listing below, the game consists of two 
programs. These must be entered and then saved in the correct 
order on the tape or microdrive if the program is to operate in the 
correct manner. 


1) The first program, Rally, is typed into the computer, paying 
particular attention to the user-defined graphics. This 
program is then saved on tape or microdrive using the 
command: 


SAVE “RALLY” LINE 1 
or 
SAVE *#“M";1;“RALLY” LINE 1 


2) The second short program, used to define the graphics 
characters, is now entered, taking care with the lines of data. 
When the program has been entered, typing RUN will cause 
the graphics characters to be designed with the computer 
storing the information in RAM, starting at the location held 
in the system variable UDG. When the generation process is 
complete, the information relating to these characters will 
be saved on tape for future use by the main program. 


Note. Although the characters are saved on tape, the program is 
not, and as this program will be required for the next game it 
should also be saved by typing: 


SAVE “GRAPHICS” 
or 


SAVE *”M”’;1;’“GRAPHICS” 


Techniques 


One problem often experienced with very long games, requiring 
a large number of user-defined graphics, is the lack of available 
memory, as the amount of space required to define a set of 
graphics characters is often considerable. In such a case, or when 
it is necessary to use the same characters for several games, it is 
useful to design the graphics using a separate program and then 
save them on tape using the SAVE CODE function. 
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The SAVE CODE function, as defined in the Spectrum manual, 
can be used to save blocks of memory on tape or microdrive. The 
syntax of the instruction is: 


SAVE”NAME” CODE START,LENGTH 


where NAME is the name to be recorded on tape; START is the 
first memory location of the block; and LENGTH is the number of 
bytes to be saved. In the particular case of saving the user-defined 
graphics, the name is a matter of personal choice, start has to be 
calculated by using the system variable UDG stored at locations 
23675 and 23676, and the length is calculated by multiplying the 
number of characters by eight. { 


Example 


If we have created ten characters then these could be saved onto 
tape using: 
SAVE “CHARS” CODE (23675 + (256*23676)),80 


Instructions 


The game is loaded from tape or microdrive by typing: 


LOAD”“” 
or 


LOAD *“M”;1;“RALLY” 


When loaded the game will run automatically. There will be a 
short delay while the graphics characters are loaded into RAM 
after which a series of instructions will be displayed on the 
screen. The game then commences and after inputting the 
required level of difficulty (10-300) you must use the cursor keys 
to steer your buggy around the track, collecting first the green and 
then the blue markers. 


Listing 


IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 
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3 LOAD ""CODE 
4 LET Ha=@ 
S BORDER @: PAPER @: CLS 
1@ PRINT AT 18,8; INK 7; PAPER 23; BRIG 
HT 13 FLASH 13;"THE MADCAP RALLY" 
23 FOR N=@ TO 7: BORDER N: FOR F=-36 T 
O 3@ STEP S: BEEP N’1@0@,F: NEXT F? NEXT 
N 
24 BORDER @ 
25 INPUT "PRESS ENTER TO CONTINUE"; LI 
NE Y$ 
36 GO SUB 8882 
4@ GO SUB 7882 
5@ CLS 
52 IF SK>3@ THEN PRINT AT 18,183 FLAS 
H 13"PLEASE WAIT" 
oS LET LIVES=5 
6@ LET PLX=1@: LET PLY=18 
7@ LET C$="e" 
1866 DIM XCSK): DIM YCSK) 
1@5 DIN UCSKJ: DIM VCSK) 
1@7 LET K=SK 
188 LET B=INT CRNDX2@)+1: LET C=INT CRN 
DX30)+1 
116 FOR N=1 TO SK 
12@ LET XCNJ=INT CRNDX26)+1 
125 LET UCNJ=INT CRNDX20)+1 
136 LET YCNJ=INT CRND¥29)+1 
135 LET YCNJ=INT CRNDX3@)+1 
14@ NEXT N 
i45 CLS 
206 FOR N=1 TO SK 
21@ PRINT AT XCNJ;YCN)3 INK 43"b" 
220 PRINT AT UCNJ;UCN)3 INK 23"b" 
238 NEXT N 
235 PRINT AT B,C3 INK 13"b" 
237 PRINT AT PLX;PLY; INK 53;C$: PAUSE @ 
24@ PRINT AT PLX,;PLY3; INK S3C$ 
245 LET OPLY=PLY: LET OPLX=PLX 
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247 BEEP .@@1,RNDX5S@ 
25@ IF INKEY$="7" THEN LET C$="c" 
266 IF INKEY$="6" THEN LET C$="i" 
276 IF INKEY$="5" THEN LET C$="g" 
288 IF INKEY$="8" THEN LET C$="e" 
, £85 IF Ese"e” THEN LET PLY=PLYPPC? AND 
Ply <313 
286 IP Cse"6" THEN LET PLY=PLY=C1 AND 
PLY>@) 
287 IF C$="e" THEN LET PLA=PLX=C1 AND 
PLX>B) 
288 IF C$="i" THEN LET PLX=PLX+C1 AND 
PLAXKZ 1. 
283 IF ATTR CPLA,PLYTI=4 THEN LET K=K-1 
23@ IF ATTR CPLX,PLYJ=2 THEN GO SUB 14 
ag 
291 IF ATTR CPLX,PLYJ=1 THEN GO TO 260 
7) 
252 IF OPLAS>PLA OR OPLT PLY THEN PRI 
NT AT OPLX,OPLY 3" 
388 GO TO 24@ 
1886 PRINT AT OPLX,OPLY; PAPER 23; INK 73 
BRIGHT 13; FLASH 1;C$ 
19865 FOR N=-@ TO 8 STEP .1: BORDER INT N: 
BEEP .@1,N: NEXT N 
1@66 BORDER @ 
1816 LET LIVES=LIVES-1 
1@2@ IF LIVES=@ THEN GO TO 200 
1825 IF INKEY$<>"" THEN GO TO 1825 
1827 IF INKEY¢="" THEN GO TO 1827 
1838 RETURN 
2086 PRINT AT PLX,PLY-INT CPLY75)3; FLASH 
13 INK 63;"GAME OVER” 
2805 FOR N=] TO 160: NEXT N 
2007 BORDER S: PAPER S: INK @: CLS 
2016 LET SC=INT S@X(CSK*¥53)-CKXS)+CLIVESX 
183) 
2@2@ PRINT AT @,@;"YOUR SCORE IS "3; FLAS 
H 23 PAPER 23 INK 73SC 
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2625 IF SC>HS THEN PRINT ’?? FLASH 13 PA 

PER 23; INK 73"YOU HAVE GOT THE HIGH SCOR 

£ 9998": LET HS=SC 

2827 PRINT AT 21,983" THE HIGH SCORE IS "; 
FLASH 13; PAPER 23; INK 23HS 

20380 INPUT “ANOTHER GAME ?"3Y$ 

264G@ IF Y$="Y" THEN PAPER @: BORDER @: 

CLS : INK 7: GO TO 4@ 

3888 STOP 

7@@G@ INPUT “DIFFICULTY LEVEL ?C18 TO 3288 
1" 3SK 

7@18 IF SK<1@ THEN GO TO 7886 

7828 RETURN 

B@0@ INK 7: CLS : PRINT AT 6,0; PAPER 2; 
INK 73 FLASH 13"THE MADCAP RALLY" 

801@ PRINT ??" IN THIS GAME YOU MUST ST 

EER YOUR BLUE CAR AROUND THE SCREEN;US 
ING THE ARROW KEYS." 

8820 PRINT *?" YOU MUST RUN OVER THE GRE 

EN OBSTACLES AND TRY TO AVOID THE RED 
ONES. IF YOU HIT A RED ONE YOU WILL LO 

SE A LIFE." 

8638 PRINT ’?" ONCE YOU HAVE RUN OUER AL 

i. THEGREEN THINGS, YOU MUST GO OUER- THE 
BLUE ONE TO END THE GAME." 

8240 PRINT “IF YOU HIT THE BLUE ONE BY 
ACCIDENT, IT WILL END THE GAME,” 
8458 PRINT ?" YOU HAYE S LIVES AT THE 

START. YOUR CAR WILL CARRY ON MoU 
ING IN THE DIRECTION CHOSEN, " 
83393 RETURN 


Graphics 


1@ REM CHARACTERS FOR CAR GAMES 

2@ FOR N=] TO S: READ AS: LET as=USR A 
$: FOR X=@ TO 2: READ E: POKE AS+X,E: NE 
*T ®: NEXT N 
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DATA 


DATA 


DATA 


DATA 


DATA 
SAVE 


"B''; 245 60, 126; 255; 258, 126; 64); 2 
"C", 16,186; 186, 48;,56, 214, 238, 2 
"E";@;23@, 224,934,183, 94, 224, 23 
"G",@,1@3,7,;122,237;122,7,183 


WY" y 187511951871 28, 20, 33; 33,81 
“CHARS "CODE (PEEK 23675+(256xP 


EEK 23676 J13472 


Chapter 11 


Road Racer 


Description 


Having just won the gold medal in the Madcap Rally you must 
now drive your Sinclair Electric Buggy back along the M1 to your 
home in the suburbs of Birmingham. As always the motorway is 
overcrowded, and half the road users are either asleep or totally 
mad; so can you get home alive without wrecking your very 
expensive car? Only time will tell. 


Hints on Entry 


Inspection of the listing given below shows that the game is in 
two parts: the main program which should be entered first and 
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saved on tape, followed by a short program used to define and 
save on tape the data relating to the user-defined graphics. 

If the instructions for the Madcap Rally have been adhered to 
correctly, then you will already have a copy of the second 
program on tape or microdrive. Therefore, to save time and the 
trouble of re-entering, load this program and type RUN. The 
redefined character information can then be saved onto the Road 
Racer tape for future use. 


Techniques 


One of the most powerful commands available to the games 
programmer in Sinclair BASIC is the ATTR function, which 
returns information concerning the character in a specified 
position on the screen. 

If we type in a statement such as PRINT ATTR(10,10), the 
computer will return a number in the range 0-255, and this 
number can be decoded to give information relating to the 
flashing status, bright status, paper colour and ink colour. To 
extract information from the number, we need first to understand 
how the information is stored inside the computer and secondly 
how the data is arranged within the word. 

In acomputer, all numbers are represented in binary form by a 
byte (a group of eight bits). In the case of the attribute bytes, the 
information is held according to the following format: 


FLASH | BRIGHT | PAPER | PAPER | PAPER 


BIT 7 6 5 4 3 2 1 O 
Examples 
IF ATTR(X, Y) = 136 = 10001000 
then 
INK 0 (BLACK) 


PAPER 1 (BLUE) 
BRIGHT 0 (NORMAL) 
FLASH 1 (FLASHING) 
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IF ATTR(X, Y) = 219 = 11011011 
then 


INK 3. (MAGENTA) 
PAPER 3 (MAGENTA) 
BRIGHT 1 (BRIGHT) 

FLASH 1. (FLASHING) 


From these examples we see that the information is coded in a 
complex form. Obtaining information concerning the individual 
paper colour, ink colour or status can therefore involve several 
lines of program. 


Example 


To find the paper colour at character position (10,10) we would 
require: 


10 LET A = ATTR(10,10) 

20 IF A> 63 THEN LET A+ A — 64: GOTO 20 

30 LET P = INT(A/8) 

40 REM THE VALUE OF ’P’ IS NOW THE PAPER COLOUR 
AT (10,10) 


Instructions 


The game is loaded from tape or microdrive by typing: 
LOAD “” 
or 
LOAD# “M”;1;“ROAD” 


When loaded the game will run automatically. The tape machine 
must be left on so that the graphics characters, saved in code 
form, can also be loaded into the computer. When this has been 
completed the instructions will appear on the screen, and after 
selecting the level of difficulty the game will commence with the 
car being controlled by the two cursor keys: KEY 5, move left; key 
8, move right. 
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IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


1 LOAD ""CODE 
2 POKE 23658,8 

1@ CLS : PRINT TAB 1@; FLASH 13 PAPER 
2; INK 73; BRIGHT 13;"ROAD RACER" 

15 FOR N=1 TO S: FOR F=@ TO ?: BORDER 
F: BEEP .@5,Ft+N: BEEP .@5,F-N: NEXT F?: N 
EXT N 

16 BORDER @: BRIGHT 1: PRINT #@3;"PRESS 

ENTER TO CONTINUE": PAUSE @ 

17? PAPER @: BORDER @: CLS : INK ? 

2@ GO SUB 93888 

38 GO SUB 6880 

4@ PRINT AT 1@,X3 INK 63"i" 

44 FOR N=1 TO 6: NEXT N 

45 LET OX=x 

46 LET S=Stl 

5@ LET CX=INT CRNDXCSK-1))+11 

6@ PRINT AT 215,1@3;"b"3AT 21,;SK+1@03"b" 

44 PRINT AT ZisCky INK Sg"o "GAT 21,3) 3 

2? LET L=USR 3582 

78 PRINT AT 3;0X35" " 

86 IF ATTR €11,;X)=639 THEN GO SUB 18a 

~@ LET 4=StC I NKEYS="8" AND 4<SK*5)-CIN 
KEY$="5" AND X>11) 

186 GO TO 4a 
1086 PRINT AT 18,;X%3; FLASH 13 INK 23"o" 
1665 FOR N=@ TO 7: BORDER N: BEEP .@5,Nt+ 
RNDX3@:> BEEP .25,;N: NEXT N 
1@@7 BORDER @ 
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1818 FOR N=1 TO S@: NEXT N: PRINT AT 18, 

wee 

1012 LET LI=LI-1 

1015 IF LI=@ THEN GO TO 2000 

1828 RETURN 

2008 PRINT AT 18,113; FLASH 13;"GAME OUER® 
FOR N=1 TO S@@: NEXT N 

2005 FOR M=1 TO 18: FOR N=@ TO 7: BORDER 
N:? BEEP .@5,N+CRND*5@)-CRNOXS@): NEXT N 
> NEXT [1 

2087 BORDER @ 

2018 CLS : PRINT "YOU SCORED "3°FLASH 13 

S 

282@ IF S>HS THEN LET HS=S: GO SUB 3@a@ 

2838 PRINT “THE HIGH SCORE IS "; FLASH 1 
3HS: PRINT ??"AND IT WAS GOT BY "3 FLASH 
13N$ 

2848 INPUT "ANOTHER GAME ?CY/N)"3Xx$ 

2050 IF X$="Y" THEN GO TO 30 

206 STOP 

3082 PRINT ?????"YOU HAVE GOT THE HIGH S 

CORES": INPUT “INPUT YOUR NAME :" ;N$ 

3818 CLS : RETURN 

6002 LET x=14 

6881 LET LI=5 

6205 RESTORE 6182: FOR N=652@@ TO 650aa+ 
17: READ A: POKE N,A: NEXT N 

6827 LET S=2 

6012 LET SC=@: LET HS=@: LET N$="&X-SPEC 

TRUM" 

6828 PRINT AT @,@;"SELECT A SKILL LEVEL 
(3 TO 18)" 

6838 INPUT SK: IF SK>1@ OR SK<3 THEN GO 
TO 6832 

6182 DATA 62,9, 17,8,88,6,24,197,6, 32,18, 
19, 16,252, 193, 16,246, 281 

611@ RETURN 

982 CLS >. PRINT PAPER 2,"ROAD RACER" 

9219 PRINT °" IN THIS GAME YOU ARE ORIUI 
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NG A BUGGY THE WRONG WAY DOWN A NOTORWAY 
- THE ONLY PROBLEM IS:ALL THE OTHER CARS 
ARE DRIVING THE OTHERWAY? YOU MUST TRY T 


9 AVOID CONTACT FOR AS LONG AS POSS 
IBLE, “ 
3626 PRINT ’°??" USE °S? TO MOVE YOUR CAR 


LEFT"??" USE ’?8? TO MOVE YOUR CAR RIGHT" 
9830 PRINT #83;"PRESS ENTER TO START": PA 
USE @ 

3848 CLS : RETURN 

33933 RETURN 


Graphics 

1@ REM CHARACTERS FOR CAR GAMES 

2@ FOR N=1 TO S: READ AS: LET as=USR A 
$: FOR X=@ TO 7: READ E: POKE AS+xX,E: NE 
xT X: NEXT N 

38 DATA "B";24,60,126,;,255,;, 255, 126,68, 2 


4@ DATA "C", 16,186; 186,4@,56; 214, 238,2 


38 DATA "E"; 6,230, 224,94; 183, 94, 224; 23 


68 DATA "G",@,163,7;122,237,122,7;183 

7@ DATA "I", 167,119; 187,28, 28,93,93,81 

3@ SAVE "CHARS"CODE CPEEK 23675+(256xP 
EEK 23676))572 


Chapter 12 


Target Practice 


Description 


So you think you’re a good shot, eh? Well now is your chance to 
find out in the Sinclair shooting gallery. The object of the game is 
to score as many points as possible by hitting the ducks, clay 
pigeons, bottles and cans. The game will require quick reflexes, a 
good eye and a fast brain, because if you can score exactly 1000 
points then you obtain some bonus shots. Good luck and good 
shooting. 


Hints on Entry 


The program is not too long and contains only a few user-defined 
graphics which are represented in the usual manner, by using 
lower case letters. 
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When the program has been entered it should be saved on tape 
or microdrive by typing: 


SAVE “TARGET” LINE 1 


or 
SAVE *”M”’;1;“TARGET” LINE 1 


Techniques 


One of the most useful applications of the IN statement is 
checking for combinations of keys being pressed on the 
keyboard. It is possible to check if one key is pressed by using the 
INKEY$ function, but this has the major drawback that it will not 
test for combinations of keys. This leads to difficulties if we are 
trying to use four keys to represent eight possible directions of 
movement. 

Consider the problem of using the four keys Q,W,E,R to 
control a pixel on the screen which is permitted to move in any 
one of eight directions. The four keys are serviced by the 
command IN 64510 (see Table 1) with the four least significant 
bits being used to indicate whether or not Q,W,E or R is pressed. 
For example, 


[J | | IRIEIWIQ 
BIT 76543 21 0 


Table 1 


a ee a ee 


IN 65278 CAPS SHIFT to V 
IN 65022 AtoG 
IN 64510 QtoT 


IN 63486 1to5 
IN 61438 0to6 
IN 57342 P to Y 
IN 49150 ENTER to H 
IN 32766 SPACE to B 


Having obtained our byte of information, we must now extract 
information from the relevant bits. This can be achieved by using 
the following routine: 
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Target Practice 


9@00@ REM CHECK KEYS 

9361@ LET Q=@: LET W=@: LET R=@: LET E=8 
3228 LET A=IN 64514 

3825 PRINT A 

9034 LET A=255-A 

3840 IF A>1S THEN LET A=A-16: GO TO 904 
7) 

93856 IF A>? THEN LET R=1: LET A=A-8 
S868 IF A>3 THEN LET E=1: LET A=A-4 
9070 IF A>] THEN LET W=1: LET A=A-2 
38686 IF A=1 THEN LET Q=1 

3890 RETURN 


When the computer returns from the subroutine at line 9090, 
the variables Q,W,E and R hold the information determining 
whether the key has been pressed and we can then use Boolean 
expressions such as IF Q THEN to act according to the infor- 
mation. 


Instruction 


The game is loaded from tape or microdrive by typing: 
LOAD “” 

or 
LOAD *“M”;1;’“TARGET” 


When the loading process is completed, the game will run auto- 
matically and a set of instructions will be displayed on the screen. 

The object of the game is to use the cursor keys to line up your 
sight with the various targets in the shooting gallery and then use 
the B key to fire. A bonus can be obtained if the total number of 
points scored at the end of the round is exactly 1000. 
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Listing 


IMPORTANT 


1) THIS GAME SHOULD BE ENTERED USING CAPS LOCK. 


2) ALL GRAPHICS CHARACTERS ARE INDICATED BY LOWER CASE LETTERS. 


3) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


1 POKE 23658,8 
5 BORDER 1] 
6 LET HS=@ 
7? LET N$="2X-SPECTRUM" 
1@ LET INSTR=88688 
2@ GO SUB INSTR: REM CLONG OR SHORT IN 
STRUCT IONS) 
38 GO SUB 4888: REM UARIABLES 
4@ GO SUB 5@@@: REM PICTURE 
1@8 LET R=INT CRNDX4)+1: IF R=1 THEN G 
0 SUB 1888 
11@ JF R=2 THEN GO SUB 1288 
126 IF R=3 THEN GO SUB 14a¢ 
138 IF R=4 THEN GO SUB 16a@a 
146 GO TO 186 
206 OVER @: INK @: PLOT INK S33PX-28,PY 
DRAW 48,@: PLOT INK S33;PX,PY-2@: DRAW 
8,48 
285 OVER @: INK @: PLOT PX-2@,PY: DRAW 
49,0: PLOT PxX,;,PY-2@: DRAW @,48 
266 GO SUB 582a 
207 LET OPX=PX: LET OPY=PY 
21@ LET PX=PX+C8XCINKEY$="8" AND PX<234 
JJ-C8BXCINKEY$="5" AND PX>21)3) 
22@ LET PY=PY+(8XCINKEY$="7" AND PY<15@ 
JI-CBXCINKEY$="6" AND PY>21)) 
225 IF OPX<>PX OR OPY<>PY THEN OVER 1: 
PLOT OPX-2@,OPY: DRAW 4@,@: PLOT OPX,OP 
Y-2@: DRAW @,19: PLOT OPX,OPY+1: DRAW @, 
Ls 


Target Practice 


227 IF INKEY$="B" OR INKEY$="B" THEN G 
9 SUB 2880 
228 OVER @: PAPER 2: INK 7: PRINT AT 21 
»12-LEN STR$ SC3SC3AT 21,1835C€"@" AND ANN 
9<18)3AT 21,2@-LEN STR& AMMO;AMMO;AT 21, 
3@-LEN STR HS3HS: PAPER 5: INK @ 
23@ RETURN 
1888 GO SUB 288 
1065 LET C=] 
1@1@ LET CX=INT CRNDX4)+8: LET CY=INT CR 
NDX6)+18 
1612 FOR N=1 TO 10 
1815 GO SUB 282 
1826 OVER @: PRINT AT CX,CY3"c" 
1@25 IF HIT=1 THEN LET HIT=@: GO TO 184 
7) 
1@3@ NEXT N 
184@ PRINT AT CX,CY; OVER 13"c": OVER @ 
1645 LET C=@ 
1847 LET CX=@: LET CY=@ 
1@5@ RETURN 
1208 GO SUB 288 
12@5 LET B=1 
121@ LET CX=INT CRNDX3)+39: LET CY=INT CR 
NDX?7J)+1] 
1212 FOR N=] JO 198 
1215 GO SUB 28@ 
122@ OVER @: PRINT AT CxX,CY3"d" 
1225 IF HIT=1 THEN LET HIT=@: GO TO 124 
1238 NEXT N 
124@ PRINT AT CX,CY; OVER 13;"d": OQUER @ 
1245 LET B= 
1247 LET CX=@: LET CY=@ 
1258 RETURN 
1486 GO SUB 20a 
14@5 LET D=1 
141@ LET Y=4: FOR X=6 TO 25 
1415 PRINT AT Y;X%3C"a" AND X72=INT CX72) 
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33C"b" AND X72Q>INT C€X72)) 

14916 BEEP .2@1,@ 

1447 LET Get: LET Cres 

1428 GO SUB 22a 

1438 IF HIT=1 THEN LET HIT=@: GO TO 144 

Q 

1432 PRINT AT CX,CY3; OVER 13("a" AND CYV 

2=INT (CY72)); OUER 13("b" AND CY/72<>INT 
CCT#273 

1935 NEXT X 

1437 OVER 1: PRINT AT Y,X3C€"a" AND X/72=] 

NT €X72333C"b" AND X72<>INT (€X72)) 

144@ PRINT AT Y,X3 OUER @;" * 

1445 LET D=o 

1447 LET CX=@: LET CY=@ 

145@ RETURN 

1686 GO SUB 288 

16@5 LET Q=1 

161@ LET Y=3: FOR X=4 TO 23 

1615 PRINT AT Y;X3"e" 

1616 BEEP .@1,5 

1617 LET CX=Y: LET CY=x 

1628 GO SUB 220 

163@ IF HIT=1 THEN LET HIT=@: GO TO 164 

) 

1632 PRINT AT CX,CY; OQUER 13"e" 

1635 NEXT X 

164@ PRINT AT Y,X3 OQUER @3" 

1645 LET Q=@ 

1647 LET CX=@: LET CY=@ 

1658 RETURN 

2888 BORDER 2 

2005 BEEP .@5,-1@4 

2087 LET AMMO=AMMO-1: IF AMMO=@ THEN GO 
TO 2200 

201@ PLOT PX,;PY: DRAW 255-PxX,-PY: PLOT P 

X-1,PY-1: DRAW -PX+1,-PY+]1 

2@15 BEEP .@1,32 

2820 IF INT (PX”“8)=CY AND INT (22-C(PY/8) 


Target Practice 


J=CX THEN GO TO 2040 
2@3@ OVER 1: PLOT PX,PY: DRAW 255-PXx,-PY 
PLOT PX-1,;PY-1: DRAW -PX+1,-PY+1: OVER 

@: BORDER 1: RETURN 

204@ OVER 1: PLOT PX,PY: DRAW 255-PX,-PY 
> PLOT PX-1,PY-1: DRAW -PX+1,-PY+1: OUER 
@: FOR N=@ TO 7: BORDER N: PRINT AT @,1 
43; PAPER N; INK 8;"HIT2": BEEP .1,N: NEX 
TN 

2845 PRINT AT @,14; OUER @;" . 

2@5@ LET SC=SC+(3@ AND C=1)+(5@ AND B=1) 
+(7@ AND D=1)+(18@ AND Q=1) 

2054 IF SC71@@@=INT (SC71@@@) THEN LET 
AMMO=AMMO+15 

2055 LET HIT=1 

2@6@ BORDER 1: RETURN 

2208 LET G$=" GAME OUER": FOR N=5 T 
O 5+1@: PRINT AT 4,N+t5S3;"e": PRINT AT 4,5 
;G$C16-N TO J: PAUSE 5S: NEXT N 

2285 GO SUB 5922 

221@ FOR N=-1@ TO 1@: BEEP .@5,N: BEEP 
@5,-N: NEXT N 

2228 BORDER 4 

223@ CLS : IF SC<=HS THEN GO TO 2322 


2230 LET HS=Se 
224@ PRINT "YOU HAVE GOT THE HIGH SCORE? 


INPUT “INPUT YOUR NAME"; LINE N$¢ 


225@ IF LEN N$<1 OR LEN N$>15 THEN PRIN 
T “PLEASE RETYPE": GO TO 2248 


2388 FOR N=@ TO 7: BORDER N: BRIGHT 1: P 
APER N: CLS : NEXT N 


23)@ PRINT “THE HIGH SCORE IS “3HS;" BY" 
"NS 

232@ INPUT “ANOTHER GAME ?"3; LINE X$ 
23308 IF X$<>"YT" THEN STOP 

234@ LET INSTR=403a 

2345 BORDER 1: PAPER S: INK @: CLS 

2358 GO TO 28 

4@@@ PRINT AT 18,1@;"PLEASE WAIT" 

4@1@ RESTORE 484@: FOR N=USR "A" TO USR 
"F'+?2: READ A: POKE N,A: NEXT N 
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4026 LET SC=@: LET AMMO=28 
4822 LET HIT=@ 
94023 LET C=@: LET B=@: LET D=@: LET Q=@ 
4$@25 LET PX=123: LET PY=91 
4636 RETURN 
4@4@ DATA 98,55; 252, 124,56,64,9,¢ 
485@ DATA 2,55, 252, 128,128,112, 32,8 
4268 DATA @; 24, 36; 60, 36, 36, 36,24 
4676 DATA 16,16,16,56,56,56,56,56 
4088 DATA @,8,54,65;,54;,8;08,8 
4898 DATA 8348, 124,126,254, 252, 128,32 
5@1@ OVER @: PAPER 5S: FOR N=1 TO 1@: PRI 
NT AT N;@3" 
"2 NEXT N 

5@15 OQOUER @: PAPER 2: INK 7: PRINT AT 21 
123"SCORE=@88@60 AMMO=@@ HIGH=8080" 

5@2@ OVER @: INK @: PLOT 165,140: DRAW 3 
8,75: PLOT 3@,1@@: DRAW -9@,75: PLOT 3@, 
7@: DRAW -3@,-7@: PLOT 165,74: DRAW 9@,- 
7@: PLOT 165,108: DRAW @,-38: DRAW -75,0 
> DRAW @,38: DRAW 75,28 

31848 RETURN 
8806 GO SUB 4@1@: PAPER 5: CLS =: LET AS= 
"TARGET SHOOT ": FOR N#=@ TO 31 
8481 PRINT AT 1@,CNt+1 AND N¢31)3C"%a" AND 
N72=INT CN%72))3C"b" AND N“20 INT CN72)) 
iAT 18,8; PAPER 23; INK 73 BRIGHT 1;5A¢(32 
-N TO ) 
8662 PAUSE S: BEEP .@3,N: NEXT N 
8483 FOR N=1@ TO 2 STEP -1: PRINT AT N;@ 
3" "2 PRI 
NT AT N-1;@3 PAPER 2; INK 73A$: PAUSE 5: 
NEXT N 
8018 PAPER S: INK @: CLS 
8826 PRINT AT 1,83; PAPER 6;AS 
805@ PRINT ?" IN THIS GAME YOU ARE LOOKI 
NG DOWN A SHOOTING RANGE WHICH HAS NO 
ROOF AND IS THEREFORE OPEN TOTHE SKY," 
8868 PRINT ?" YOU MUST MANOEUVRE YOUR SI 
GHT CA CROSS} AND TRY TO SHOOT THE UAR 
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TOUS OBJECTS WHICH APPEAR. SOME WILL M 

ATERIALISE AT THE ENDOF THE RANGE, WHILE 

OTHERS WILL FLY OVER THE TOP." 

8870 PRINT ’?" YOU WILL START OFF WITH 2a 
ROUNDS OF ANMNUNITION, AND EVERY 188 

@ POINTS YOU WILL GAIN SOME MORE." 

8875 PRINT ?" WHEN YOU HAVE NO AMMUNITIO 

N LEFT, THE GAME ENDS." 

8086 INPUT PAPER 2; INK 93;"PRESS ENTER 

TO CONTINUE" 3 LINE X$ 

8098 CLS = PRINT ? PAPER 23; INK 273A: PR 


INT ?" USE THE ARROW KEYS TO MOVE YOURSI 
GHTs AND THE ?B? KEY TO FIRE.” 
8108 PRINT ??" Ac CCAN) IS WORTH 38 POI 


NTSo°?"A d CBOTTLEJ IS WORTH S@ POINTS," 
*"A a CDUCKI IS WORTH 7@ POINTS"? "AND A 
e CCLAY PIGEON) IS WORTH 108 POINTS." 


811@ PRINT ’’" TO GET YOUR BONUS AMMUNIT 
TON YOU MUST SCORE EXACTLY 1888 PO 
TINTS, SO THINK CAREFULLY ABOUT WHAT 


nO SHCOT Os." 
e@l2@ INPUT “PRESS ENTER TO: CONTINUE” 5 -LI 
NE x$ 
8138 CLS : RETURN 
393398 GO SUB 39988: GO TO 393398 
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Sliding Puzzle 


Description 


This is a computerised version of the popular game which 
involves sliding pieces around a 4X4 grid until the correct 
picture is obtained. This version provides you with two 
pictures—a house and a church. Instructions are given below on 
how to design your own pictures and save them on tape. 


Hints on Entry 


The program is straightforward to enter and should therefore 
cause no problems. When the complete program has been 


entered, it should be saved on tape or microdrive using ‘ne 
command: 


SAVE “PUZZLE” LINE 1 


or 


SAVE #°M”;1;“PUZZLE” LINE 1 


The original program contains the picture of a house; for vamet 
the data for a church is also included. The data should b 

as lines 9000-9075 in steps of five (it is very important th u de 
not deviate from this sequence). When entered, this should be 
saved using the command: 


SAVE “CHURCH” 
or 
SAVE #°M”;1;“CHURCH” 


If you now wish to use the puzzle with the church, simply load 
the main program, Puzzle and then type: 


MERGE “CHURCH” 
or 
MERGE #”M”;1;“CHURCH” 


and execute the program by typing RUN. 

Since you are able to change the picture in such an easy way, 
there is no reason why you should not create your own pictures 
for use with the program Puzzle. 

The grid is 4 X 4, which means that you need to define sixteen 
different pieces, including the blank which can be anywhere in 
the grid and is represented by the data line DATA 0. The data line 
number for each of the pieces is as follows: 


Each piece other than the blank is defined by nine items of data 
since it is a3 X 3 square. The numbers in the data statements are 
the character codes as found in Appendix A on p. 138 of the 
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Spectrum manual. An example piece would be as shown below 
with the numerical codes in the grid to the right. 


The data line for this piece would be: 


DATA 128, 132, 128, 141, 143, 138, 143, 143, 143 


The pictures given above use only the sixteen shapes which the 
Spectrum has available, but there is no reason why you should 
not use the user-defined graphics to create your own outstanding 
pictures. 


Techniques 


This program demonstrates how the MERGE command can be 
used to exchange data from one program to another. 

Many games programs, especially puzzles and word games, 
require portions of data to store the solution of the problem or the 
possible combinations which can be used throughout the 
program. In these cases it would be a waste of time to keep typing 
in the main program. Also, if the programs are to be stored on a 
costly microdrive cartridge it would also represent a waste of 
valuable storage space. A method around this problem is to use 
the fact that the body of the program would be the same in all 
cases. So the various sets of data lines can be written as small, 
separate programs and stored on tape or cartridge, being merged 
into the main program as and when required. 

By using a routine such as that shown below it would be 
possible to have the merge facility under software control from 
within the program: 


BQ@@@ REM MERGE CONTROL 

8@1@ INPUT "NAME OF DATA PROGRAM=" 5A$ 
8020 INPUT "MICRODRIVE OR TAPECN/’T)" 3B$S 
88360 IF BS="M" THEN MERGE X"M"315A$ 
8648 IF R$="T" THEN MERGE AS 

8856 RETURN 
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Instructions 


When the prograni is executed, some instructions are displayed 
on the screen followed by the grid containing the correct solution. 
When you have seen this, the solution is replaced by the state- 
ment ‘creating the problem’ while the computer jumbles the 
pieces. The time taken for this varies, but is usually about one 
minute. 

When the problem is created the grid is displayed with the 
juggled pieces, and it is your task to solve it in the least number of 
moves. To move a piece into the empty square you type the letter 
corresponding to the square you wish to move from. The squares 
on the grid are represented by the letters A to P as shown on the 
bottom left of the screen and below. 


The problem is solved when the completed picture is shown in 
the grid. 


Listing 
IMPORTANT 


1) THIS PROGRAM SHOULD BE ENTERED USING CAPS LOCK. 


2) SPACES WITHIN TEXT SHOULD BE ENTERED AS LISTED. 


House 

1 POKE 23658,8 

5 DIM PC16,;97? DIN BCIE) 

1@ INK @: BORDER 1: LET T=@ 

15 PRINT AT 1543" "3: FLASH 1: PRINT 
SLIDING PIECES PUZ2@LE" 3: FLASH @ 

2@ PRINT : PRINT : PRINT "THE IDEA OF 
THIS PUZZLE IS TO RECREATE A PICTURE 
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N Fi 4 om 4 GRID BY SLIDING PIECES INTO 
THE ONE EMPTY SQUARE. " 

25 PRINT = PRINT "THIS IS ACHIEVED BY 
TYPING THE LETTER OF THE SQUARE FROM WH 
ICH YOU WISH TO MOVE," 

3@ PRINT :? PRINT “THE GRID IS REPRESE 
NTED BY THE FOLLOWING LETTERS:" 

35 PRINT 

4@ FOR I=1 TO 16 

45 IF I<S THEN PRINT AT 15,12+1j3CHR$ 
(64+]): GO TO 65 

S@ IF I<3 THEN PRINT AT 16;8+tI;3CHRS C 
64+I1): GO TO 65 

3S IF 1¢13 THEN PRINT AT 17;4+I13CHR$ 
(64+1I3: GO TO 65 

6@ PRINT AT 18,I3CHR$ (€64+I): GO TO 65 


65 NEXT I 

27@ PRINT AT 28,83" "3: FLASH 1: PRINT 
“PRESS ANY KEY" 3: FLASH @ 

73 IF INKEY#=""" THEN GO TO 25S 

88 CLS 


85 PAPER 5S: GO SUB 188@: GO SUB 138@: 
GO SUB 1188 

36 PRINT AT 49ia°TRIS Js” 

35 PRINT AT Sats" THE” 

1@@ PRINT AT 6;,13"SOLUTION" 

L1I¢ POR Pel To is 

Liz LET BCPJ=P 

Lio LET SP 

116 IF R=BLANK THEN LET SPACE=P: GO TO 

L235 

12@ GO SUB 1200 

125 NEXT iP 

136 FOR I=1 TO S@@: NEXT I 

I'35 PAPER 5S: GLS 

14@ GO SUB 1428@ 

145 GO SUB 1386: GO SUB 118@ 

15@ FOR P=] TO 16 

oS: LET R=BCP3 


168 
178 
165 
178 
La 

ER": 


IF R=BLANK THEN 
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LET SPACE=P: GO TO 


GO SUB 1288 
NEXT P 

INK @: PAPER 5: PRINT AT 5313" 
PRINT AT 6,;13"0F MOVES": 


6572" 


182 
182 
185 
oO TO 
138 
135 
288 
GOS 
285 
ET 
BCS) 
212 
Zya 
216 
226 
258 
225 
0 258 


238 IF T<1@@@ THEN PRINT AT 85437: 


TO 25 
235 
258 
268 
456 
338 
aoa 

1882 
1885 


1818 
1822 
1825 


LET BS=INKEY$: [TF B¢="" 


IF CODE BS<65 OR CODE Bt>8@ TH 
182 


NUMB 


EN 


PRINT AT 8 


THEN GO TO 


G 


GO SUB 15@@: IF L=@ THEN GO TO 186 


LET P=CODE (BS)-64: 

LET P=SPACE 

UB 120@a 

LET S=SPACE = 
2=BCSPACE): 

=2 


GO SUB 162 


LET BCSPACEJ=BCS) 


LET T=T+l 
INK @: PAPER 5 
IF T<1@ THEN PRINT AT 8,637: 


IF T<1@@ THEN PRINT AT 8;535T: 


2) 

STOP 

GO SUB 178@ 
GO TO 188 
RETURN 
PAPER ?: 
STOP 

FOR Je] 
PRINT " 


INK @ 
TO 16 
FOR I=1 70 9 


READ PCJ; 1) 
IF PCJ,;13=@ THEN LET BLANK=) : 


2) 


LET R=BC(CODE (B#)-64): 


LET SPACE=CODE CB$)-64 


> LET 


GO JO 


GO 


GO 


GO 


T 
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9 184@ 
1838 NEXT | 
1848 NEAT J 
185@ FOR I=1 TO 6: PRINT 
PAUSE 6: NEXT I 
11@@ INK @ 
11@5 FOR I=8 TO 16 
111@ PRINT AT 4,1@+I3CHR¢ 143 
1115 PRINT AT 8, 1@+I;3CHR$ 143 
112@ PRINT AT 12,1@+I5CHR¢ 143 
1125 PRINT AT 16,1@+I5;CHRE 143 
113@ PRINT AT 2@,1@+1;CHRE 143 
1135 PRINT AT 4+1I,1@3CHR$ 143 
114@ PRINT AT 4+1I,143CHR$ 143 
1145 PRINT AT 4+I,18;CHR$ 143 
115@ PRINT AT 4+1I,223;CHR$ 143 
11535 PRINT AT 4#15Z267CHRS 143 
116@ NEXT I 
1165 RETURN 
12@@ LET X=S+4XINT CCP-1)374) 
1265 LET “‘VS=/7+4XCP-4XINT CCOPH=1374) 2 
121@ INK 4: PAPER 6 
1215 PRINT AT X%,Y5CHR$ PCR; 1) 
122@ PRINT AT X%,Y+15CHR$ PCR; 2) 
1225 PRINT AT X%,Y+23CHR$S PCR, 3) 
123@ PRINT AT X+1;,Y3CHRS PCR; 4) 
1235 PRINT AT X+1;,Y+1;3CHR# PCR;5) 
124@ PRINT AT Xt+1;Y+2;CHRE PCR; 6) 
1245 PRINT AT X+2;,Y73CHRS PCR; 7) 
125@ PRINT AT X+2,Y+1;5CHR# PCR, 8) 
L255 PRINT AT Xt2;, 7+2;CHRE PCR; 9) 
126@ RETURN 
13@@ INK @: PRINT AT 1543" "3: FLASH 1: 
PRINT “SLIDING PIECES PUZZLE” 32 PLASH @ 
iSi@ PRINT AT 1Ss1s"THE GRIP” 
132@ FOR I=1 TO 16 
1325 JF i€3 THEN PRINT AT 17; 2+ 3CHRS £ 
64+1I): GO TO 1348 
133@ IF I<3 THEN PRINT AT 18,1-23CHR¢ C 
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64+I1): GO TO 1340 

1334 IF I<13 THEN PRINT AT 19; I-6;CHRS 
(64+1): GO TO 1348 

1337 PRINT AT 20, I1-1@;CHR* (64+I3: GO TO 
134a 

134@ NEXT I 

1356 RETURN 

1446 INK @: PRINT AT 1@6,6;"CREATING THE 

PROBLEM" 

14@3 FOR J=1. 70 36 

141@ LET B=1+INT €16*RND)J 

1942@ LET BS=CHR$ (Bt64): GO SUB 158 

1425 IF L=@ THEN GO TO 1418 

1426 IF J<25 THEN PRINT AT 8, 3tJ3"X": G 


9 TO 1438 

1427 IF J<2@S THEN PRINT AT J-16y2/7 7%": 
GO TO 1438 

1428 IF J<S2 THEN PRINT AT 12,;56-J5"X": 
GO TO 1434 


1425 PRINT AT 64-4545" %" 

1438 LET S=SPACE* LET SPACE=B: LET Z@=BCS 

PAREE}? LET BUSPACEJ=BCS): LET BCSJFzZ 
1435 NEXT J 

1448 CLS 

15@@ LET L=@ 

1501 IF CODE CB¢)-64=SPACE THEN RETURN 
1505 IF SPACE=1 AND (Be="B" OR BS="E") T 

HEN LET L=]? RETURN 

1518 IF SPACE=2 AND CB$="A" OR Bs="C" OR 
B$="F") THEN LET L=1:? RETURN 

1515 1F SPACE=3 AND CB$="B" OR BS="D" OR 
B$="G") THEN LET L=1: RETURN 

1520 IF SPACE=4 AND (B$="C" OR BS="H") T 

HEN LET L=1: RETURN 

1325 IF SPACE=5 AND (Bs="A" OR BS="F" OR 
B$="7") THEN LET L=1: RETURN 

1530 IF SPACE=6 AND (B$="B" OR BS="E" OR 
Be="6" DOR BS="J") THEN LET L=1! RETURN 
1535 IF SPACE=7 AND (B¢="C" OR BS="F" OR 
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BS="H" OR BS="K") THEN LET L=1 


RETURN 


1546 IF SPACE=8 AND (B$="D" OR BS="G" OR 


BS$="L") THEN LET L=1: RETURN 


1545 IF SPACE=3 AND (B#="E" OR Bs="J" OR 


BS="M") THEN LET L=1: RETURN 
155@ IF SPACE=1@ AND (B¢="F" OR 


R BS="K" OR B$="N") THEN LET L= 


N 
1555 IF SPACE=11 AND (B$="G" OR 


R BS$="L" OR BS="0") THEN LET L= 


N 

156@ IF SPACE=12 AND (B$="H" OR 
R BS="P") THEN LET L=1: RETURN 
1565 IF SPACE=13 AND (BS="I" OR 
THEN LET L#=1: RETURN 

1578 IF SPACE=14 AND (BS="J" OR 
R BS="0") THEN LET L=1: RETURN 
1575 IF SPACE=15 AND (BS="K" OR 
R BS="P") THEN LET L=1: RETURN 
1586 IF SPACE=16 AND (B¢$="L" OR 
THEN LET L=1: RETURN 

1598 RETURN 

1668 LET X=S+4xINT (CP-1)74) 


1626 PAPER 5S 

1623 PRINT AT -®. T3* 

16386 PRINT AT Xt+1,73" 

1635 PRINT AT &X+2, 73" " 
1646 PAPER 5S 

1658 RETURN 

17@6 FOR I=1 TO 16 

1718 IF BCIJ<>I THEN RETURN 
1728 NEXT I 


FLASH 1: PRINT "“SOLUVED"3;:> FLASH 
174@ STOP 
3888 DATA @ 


B$="T" 0 
‘1: RETUR 
BS="J'" 0 
1: RETUR 
Be="K" G 
B$="N") 

B$="M" 0 
B$="N" 9 
Be="yp" 


1618 LET Y=?+4x(P-4xINT (CP-1)74)) 


173@ PAPER 6: INK 2: PRINT AT 12,23""3- 


a) 


3805 DATA 128,128,128,128,135,128,128,13 


3,128 


3818 DATA 
By 143 
3615 DATA 
8,128 
3828 DATA 
Sig LAS 
3825 DATA 
8,143 
38328 DATA 
8,128 
3635 DATA 
3,128 
38428 DATA 
35 123 
3845 DATA 
3,128 
3858 DATA 
3,128 
3855 DATA 
33 128 
3868 DATA 
8,128 
3865 DATA 
8,128 
3878 DATA 
8,128 
3675 DATA 
8,128 
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128,128,128,128,128,137,128,12 
137,128, 128,128,128,128,128,12 
128,128; 141,128,141, 143,128, 14 
143,143, 143, 143; 143, 143, 128,12 
143,143; 143, 143,143, 143, 143,12 
192,128, 128, 143,142,128, 143, 14 
128, 143, 143,128,143, 143,128; 14 
128,128, 143,143, 143, 143; 128, 14 
143,128,128, 143,143,143, 128, 14 
143, 143; 128,143, 143,128, 128,14 
128, 143,128,128, 143, 143, 128,12 
128, 143,128; 143,143, 148,128, 12 
128, 143,128, 148, 143, 143,128,12 


1285 143, 1265 143; 143, 1283 128, 12 


388@>DATA 128,128,128, 128,128,141,128, 14 


1,143 


3@@5 DATA 128,128,128,142,128, 128,143, 14 


2,128 


3818 DATA 128,128,128, 128; 128,128,128,14 


1,142 


3615 DATA @ 


141 


142 


3826 DATA 
2;129 
3825 DATA 
1,128 
38324 DATA 
8,128 
3835 DATA 
3,128 
3845 DATA 
3,138 
3@5@ DATA 
3,136 
3455 DATA 
3,138 
3868 DATA 
3,128 
3465 DATA 
8,128 
3678 DATA 
8,128 
3675 DATA 
8,128 
3888 DATA 
8,128 
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128; 143;,139;128,139, 133,128, 14 
135, 143,128,128, 135,128,138; 14 
128, 135, 139,128,128,128,128,12 
128, 128,128,128, 136,128,129,13 
128, 143, 143; 128; 143; 143, 128, 14 
143, 143,141, 143; 143, 143,129, 14 
143,143, 1435 143; 143; 143,129; 14 
143, 142, 128; 143; 143,128,129, 14 
128, 143, 128,128,143, 14@,128,12 
128, 143; 128, 14@, 143, 143,128,12 
128, 143,128, 143; 143, 143;,128,12 


128, 143, 128, 143; 143, 128,128,12 
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SPECTRUM SUPERGAMES 


Here are thirteen SUPERGAMES designed specifically for the 
Spectrum 16K and 48K to test your skill and ingenuity! 


FANTASTIC JOURNEY takes you on a superb adventure, and 
MISSILE ATTACK tests your ability to defend your city from 


threatened annihilation. Keep a straight face while playing. 


CRIBBAGE against the computer and improve your hand-to- 


eye co-ordination with CANYON BOMBER, MADCAP RALLY . 


and ROAD RACER. Have you got a steady hand? Then test 
your skill against your friends with SHOOTOUT. 


Each program is accompanied by a description of the 
techniques used in games programs. High score routines, 
joystick control, memory saving methods and modular 
programming are described using the listings as examples to 
help you improve your own programming. 
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